代码之家 › 专栏 › 技术社区 › Robbie McM

如何使列表中的所有数据帧具有相同的列数?

if-statement for-loop list r

Robbie McM · 技术社区 · 2 年前

我试图使列表中的所有数据帧具有相同的列数。

创建一个包含3个数据帧的列表,但第二个数据帧有一个额外的列。

    my_data<- 
        list(    data.frame(
         V1= c(1,1,1,1,1),
         V2= c(2,2,2,2,2),
         V3= c(3,3,3,3,3),
         V4= c(4,4,4,4,4),
         V5= c(5,5,5,5,5)), 
       data.frame(
         V1= c(1,1,1,1,1),
         V2= c(2,2,2,2,2),
         V3= c(3,3,3,3,3),
         V4= c(4,4,4,4,4),
         V5= c(5,5,5,5,5),
         V6= c(6,6,6,6,6)),
       data.frame(
         V1= c(1,1,1,1,1),
         V2= c(2,2,2,2,2),
         V3= c(3,3,3,3,3),
         V4= c(4,4,4,4,4),
         V5= c(5,5,5,5,5))

手动移除列:如果df[[2]]有>;5列,移除第6列

if (ncol(my_data[[2]])>5) {
my_data[[2]][,-6]
}

但是,在列表中循环时,为什么相同的逻辑不起作用呢?

for (i in 1:length(my_data)) {

 if (ncol(my_data[[i]])>5) {
my_data[[i]][,-6]
 } 
}

3 回复 | 直到 2 年前

langtang 2 年前

你的逻辑很好。在循环中迭代时,必须将更新后的帧分配回列表中的该元素。

只需更换:

my_data[[i]][,-6]

具有

my_data[[i]]<-my_data[[i]][,-6]

在 if 条款

akrun 2 年前

获取 min 所有数据的最小列数。然后在 for 循环,执行分配( <- )更新数据。中的框架元素 list

n <- min(sapply(my_data, ncol))
for(i in seq_along(my_data)) my_data[[i]] <- my_data[[i]][seq_len(n)]

Jonathan 2 年前

如果要保持列的名称相同(无论顺序如何),则可以获取常用列名,然后选择这些名称:

selected_cols <- Reduce(intersect, lapply(my_data, names))
my_data <- lapply(my_data, function(x) x[selected_cols, ])

推荐文章

Marc B. · 使用ggplot2创建条形图时“缺少值”

1 年前

deschen · tidyverse与外部向量发生突变,该外部向量的元素是数据帧中的列值

1 年前

Laura · 在Shiny中使用可排序的包拖放名称,这些名称将成为图表

1 年前

Mallikarjun M · 如何使用随机森林进行时间序列预测?

1 年前

ly li · 模型摘要:当表格形状改变时,拟合优度消失

1 年前

C.Robin · 将marginaffects::predictions()的结果连接回main df?

1 年前

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

RoyBatty · 统计每个字符在整个数据集中出现的次数

2 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前