为每个缺失值的组添加一行

问题描述：

每个篮子可容纳的水果总数为10.对于每个篮子，如果数量为10且缺少一个水果，我想为该篮子添加一行说那个水果的数量是0。以下是生成数据帧的代码。为每个缺失值的组添加一行

Basket <- c("A","A","B","B","C","C","C") 
Fruit <- c("Apple","Orange","Apple","Orange","Orange","Apple", "Guava") 
count <- c("5","5","7","3","2","6","4") 
data <- data.frame(Basket,Fruit,count) 

    Basket Fruit count 
1  A Apple  5 
2  A Orange  5 
3  B Apple  7 
4  B Guava  3 
5  C Orange  2 
6  C Apple  6 
7  C Guava  4

我想基本上像它看起来是这样的：

Basket Fruit count 
1  A Apple  5 
2  A Orange  5 
4  A Guava  0 
5  B Apple  7 
6  B Orange  0 
7  B Guava  3 
8  C Orange  2 
9  C Apple  6 
10  C Guava  4

不完全相信，如果循环将是一种有效的方法，但开放的建议。目标是为每个水果在群体中获得准确的平均值。

答

将您data.frame宽格式，以0而不是来港填充它，然后将其转换回高大格式：

count <- c(5,5,7,3,2,6,4)  # should be integers, not strings 
data <- data.frame(Basket,Fruit,count) 

d1 <- tidyr::spread(data, Fruit, count, fill = 0) 
d2 <- tidyr::gather(d1, Fruit, count, -Basket)

Nvm。这工作！ – rockboy23

关于不匹配属性的抱怨可能是由于字符变量被视为“因素”。尝试在'data.frame'结构中添加'stringsAsFactors = FALSE'。或者更好的是，使用'tibble :: data_frame'来代替。 –

答

data <- data.frame(Basket,Fruit,count,stringsAsFactors = F) 
full = merge(
    data, 
    expand.grid(
     Basket=data$Basket, 
     Fruit=data$Fruit 
    ), 
    all.y=T 
) 
full$count = ifelse(is.na(full$count), 0, full$count)

Quinn，谢谢你的回答。它确实有效，但我意识到我的数据集Basket是一个不可能列出的GUID。 – rockboy23

我刚刚做了什么改变？ –

我的数据框太大，无法使用。我收到一个错误，说错误：无法分配大小为405.1 GB的矢量 – rockboy23

答

我知道有扩散和聚集funcion，从tydir包

library(tidyr) 
data <- data %>% 
    spread(Fruit, count, fill = 0) %>% 
    gather(Fruit, count, -Basket)

把0，计数值必须是整数，而不是因素。为此，您可以用

data$count <- as.integer(data$count))

答

次数仅工作，如果只有1个缺失水平的水果，否则应该按预期工作

Basket <- c("A","A","B","B","C","C","C") 
Fruit <- c("Apple","Orange","Apple","Orange","Orange","Apple", "Guava") 
count <- c(5,5,7,3,2,6,4) 
data <- data.frame(Basket,Fruit,count, stringsAsFactors = FALSE) 

fruit_levels <- levels(as.factor(data$Fruit)) 
append_df <- data.frame(Basket = NA, Fruit = NA, count = NA) 

for(i in levels(as.factor(data$Basket))){ 
    temp_df <- filter(data, Basket == i) 
    temp_count <- 10 - sum(temp_df$count) 
    if(length(levels(as.factor(temp_df$Fruit))) != length(fruit_levels)){ 

     temp_fruit <- cbind.data.frame(fruit = fruit_levels, count = ifelse(fruit_levels %in% temp_df$Fruit, 0, 1)) 
     temp_fruit2 <- filter(temp_fruit, count == 1) %>% select(fruit) 
     temp_fruit3 <- temp_fruit2[,1] %>% as.character() 

     temp_df_to_append <- data.frame(Basket = i, Fruit = temp_fruit3, count = temp_count) 
     append_df <- rbind.data.frame(append_df, temp_df_to_append) 
    } 
} 

data <- rbind.data.frame(data, append_df[-1,]) %>% arrange(Basket)

为每个缺失值的组添加一行

相关推荐