使用逗号分隔合并 R 数据框中的两列。
r programmingserver side programmingprogramming
要使用逗号分隔合并 R 数据框中的两列，我们可以使用带有 sep 参数的 paste 函数。
例如，如果我们在名为 df 的数据框中有两列，即 X 和 Y，那么我们可以使用下面提到的命令 − 将这两列的值合并为一个使用逗号分隔的新列。
df$Combined<-paste(df$X,df$Y,sep=",")
示例 1
以下代码片段创建了一个示例数据框 −
x1<-sample(0:9,20,replace=TRUE) y1<-sample(0:9,20,replace=TRUE) df1<-data.frame(x1,y1) df1
创建以下数据框
x1 y1 1 4 5 2 1 9 3 9 9 4 0 9 5 6 7 6 3 1 7 4 1 8 9 8 9 2 1 10 1 8 11 6 8 12 4 5 13 2 0 14 4 9 15 1 3 16 5 2 17 3 7 18 2 5 19 9 9 20 6 5
要在上面创建的数据框中创建一个以逗号分隔的 x1 和 y1 组合值的新列，请将以下代码添加到上面的代码片段中 −
x1<-sample(0:9,20,replace=TRUE) y1<-sample(0:9,20,replace=TRUE) df1<-data.frame(x1,y1) df1$Combined<-paste(df1$x1,df1$y1,sep=",") df1
输出
如果将上述所有代码片段作为单个程序执行，则会生成以下输出 −
x1 y1 Combined 1 4 5 4,5 2 1 9 1,9 3 9 9 9,9 4 0 9 0,9 5 6 7 6,7 6 3 1 3,1 7 4 1 4,1 8 9 8 9,8 9 2 1 2,1 10 1 8 1,8 11 6 8 6,8 12 4 5 4,5 13 2 0 2,0 14 4 9 4,9 15 1 3 1,3 16 5 2 5,2 17 3 7 3,7 18 2 5 2,5 19 9 9 9,9 20 6 5 6,5
示例 2
以下代码片段创建了一个示例数据框 −
x2<-sample(LETTERS[1:26],20) y2<-sample(LETTERS[1:26],20) df2<-data.frame(x2,y2) df2
创建以下数据框
x2 y2 1 T P 2 A I 3 P Y 4 F O 5 E G 6 I F 7 M D 8 L V 9 Z A 10 B L 11 S S 12 V W 13 Y H 14 Q K 15 K J 16 D U 17 J X 18 C E 19 N B 20 U Q
要在上面创建的数据框中创建一个以逗号分隔的 x2 和 y2 组合值的新列，请将以下代码添加到上面的代码片段中 −
x2<-sample(LETTERS[1:26],20) y2<-sample(LETTERS[1:26],20) df2<-data.frame(x2,y2) df2$Combined_Col<-paste(df2$x2,df2$y2,sep=",") df2
输出
如果将上述所有代码片段作为单个程序执行，则会生成以下输出 −
x2 y2 Combined_Col 1 T P T,P 2 A I A,I 3 P Y P,Y 4 F O F,O 5 E G E,G 6 I F I,F 7 M D M,D 8 L V L,V 9 Z A Z,A 10 B L B,L 11 S S S,S 12 V W V,W 13 Y H Y,H 14 Q K Q,K 15 K J K,J 16 D U D,U 17 J X J,X 18 C E C,E 19 N B N,B 20 U Q U,Q
