代码之家 › 专栏 › 技术社区 › Sophia

将数据帧转换为R中具有适当标签的列表

data-manipulation list r

Sophia · 技术社区 · 3 年前

我有一个如上所述的数据表。在我将其读入R后,它显示如下:

    A1          V2  B1          V4  C1          V6  D1          V8  
1: 0.0  0.00000000 0.0  0.00000000 0.0  0.00000000 0.0  0.00000000  
2: 0.2 -0.00380627 0.2 -0.00819362 0.2  0.00111832 0.2  0.00121747  
3: 0.4 -0.00331354 0.4 -0.00525695 0.4  0.00064048 0.4 -0.00192659 
4: 0.6 -0.00868297 0.6 -0.01096702 0.6 -0.00173567 0.6 -0.00113128 
5: 0.8 -0.01042633 0.8 -0.01036590 0.8 -0.00542573 0.8 -0.00477296

前两列属于A1类,后两列属于B1类。我想将列转换为A1.1、A1.2、B1.1、B1.2。。。有什么建议吗?非常感谢。

1 回复 | 直到 3 年前

Ronak Shah 3 年前

您可以使用其他列名,并将1:2添加为后缀。

cols <- names(df)[c(TRUE, FALSE)]
cols
#[1] "A1" "B1" "C1" "D1"

names(df) <- c(t(outer(cols, 1:2, paste, sep = '.')))
df

#   A1.1      A1.2 B1.1      B1.2 C1.1       C1.2 D1.1      D1.2
#1:  0.0  0.000000  0.0  0.000000  0.0  0.0000000  0.0  0.000000
#2:  0.2 -0.003806  0.2 -0.008194  0.2  0.0011183  0.2  0.001217
#3:  0.4 -0.003314  0.4 -0.005257  0.4  0.0006405  0.4 -0.001927
#4:  0.6 -0.008683  0.6 -0.010967  0.6 -0.0017357  0.6 -0.001131
#5:  0.8 -0.010426  0.8 -0.010366  0.8 -0.0054257  0.8 -0.004773

数据

df <- structure(list(A1 = c(0, 0.2, 0.4, 0.6, 0.8), V2 = c(0, -0.00380627, 
-0.00331354, -0.00868297, -0.01042633), B1 = c(0, 0.2, 0.4, 0.6, 
0.8), V4 = c(0, -0.00819362, -0.00525695, -0.01096702, -0.0103659
), C1 = c(0, 0.2, 0.4, 0.6, 0.8), V6 = c(0, 0.00111832, 0.00064048, 
-0.00173567, -0.00542573), D1 = c(0, 0.2, 0.4, 0.6, 0.8), V8 = c(0, 
0.00121747, -0.00192659, -0.00113128, -0.00477296)), 
class = "data.frame", row.names = c("1:", "2:", "3:", "4:", "5:"))

akrun 3 年前

我们可以用 make.unique

library(zoo)
names(df) <- make.unique(na.locf0(replace(names(df), c(FALSE, TRUE), NA)))

数据

df <- structure(list(A1 = c(0, 0.2, 0.4, 0.6, 0.8), V2 = c(0, -0.00380627, 
-0.00331354, -0.00868297, -0.01042633), B1 = c(0, 0.2, 0.4, 0.6, 
0.8), V4 = c(0, -0.00819362, -0.00525695, -0.01096702, -0.0103659
), C1 = c(0, 0.2, 0.4, 0.6, 0.8), V6 = c(0, 0.00111832, 0.00064048, 
-0.00173567, -0.00542573), D1 = c(0, 0.2, 0.4, 0.6, 0.8), V8 = c(0, 
0.00121747, -0.00192659, -0.00113128, -0.00477296)), 
class = "data.frame", row.names = c("1:", "2:", "3:", "4:", "5:"))

推荐文章

T K · 在第一列中添加具有特定值的新行,然后在其余列中添加“-”

2 年前

HoelR · 每N列将数据帧拆分为多个

2 年前

bandcar · R:只保留值与另一列中的值不同的行

2 年前

stats_noob · R:R中有“非字符”命令吗?

2 年前

cliu · 根据R中连续几天的顺序分配ID

2 年前

goatstash · 从字符串数组中剪切第一个单词并存储在新变量中

2 年前

Thandi · 使用整形()和pivot_long()将宽数据转换为长数据时出错[duplicate]

2 年前

mr.bjerre · 展开R中数据表中组内的最后观察值

6 年前

aelhak · 使用group by和tidy运行多个模型并将结果提取到dataframe

6 年前

jyson · 有没有办法用dplyr的实用程序将纯文本数据重塑为常规表格数据?

6 年前