这是一个示例数据集:
data = data.frame('Cat' = c('A', 'A', 'A', 'B', 'B', 'C', 'C', 'C', 'C', 'C'),
'Value' = c(1,1,1,2,2,3,3,3,3,3))
data
另一个数据框:
a = data.frame('Name' = c('A', 'B', 'C', 'D'))
所需的输出:
我想了解如何在数据框的同一行中引用另一个单元格,并使用该单元格的值执行某些功能。
这个工作对“数据”:
a[,'In Data?'] = ifelse(a$Name %in% unique(data$Cat), "Y", "N")
这种失败的位数:
b$Median = median(data$Cat[data$Cat == a$Name])
Error message:
Error in Ops.factor(data$Cat, a$Name) :
level sets of factors are different
这种失败的次数:
a$Count = ifelse(a$Name %in% unique(data$Cat), length(data$Cat==a$Name), 0)
Error:
Error in Ops.factor(data$Cat, a$Name) :
level sets of factors are different
。。第二个Dataframe列:
最好将这些操作归为合并和汇总。(就单元格和行而言,看起来非常像Excel,而不是R)。该dplyr
软件包在这里有很大帮助
library(dplyr)
a %>%
left_join(data, by=c("Name"="Cat")) %>%
group_by(Name) %>%
summarize(
Count=sum(!is.na(Value)),
Median=median(Value),
ValuesGtMed=sum(Value>Median),
f = Count+10,
InData = if_else(Count>0, "Y","N")
) %>%
mutate(Proportion=Count/sum(Count))
将left_join
确保我们得到的所有的值a
,然后我们只使用由每个定义的组不同的汇总函数Name
输出:
Name Count Median ValuesGtMed f InData Proportion
<chr> <int> <dbl> <int> <dbl> <chr> <dbl>
1 A 3 1 0 13 Y 0.3
2 B 2 2 0 12 Y 0.2
3 C 5 3 0 15 Y 0.5
4 D 0 NA NA 10 N 0
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句