对R中的列表列执行ROW Mean操作

df=read.table(text="A     B      C      D
1,2   .      1,3    1,4
2,1   1,1    1,1    2,3  ", header=TRUE)

A     B      C      D
1,2   .      1,3    1,4
2,1   1,1    1,1    2,3  

Value_1_mean         Value_2_mean
1 (3/3)              3 (9/3)
1.5 (6/4)            1.5 (6/4)

Value_1_mean                          Value_2_mean
First value of comma in first row     Second value of comma in first row
First value of comma in second row    Second value of comma in second row 

n <- paste0('value_',1:2,'_mean')
t(apply(df, 1,\(x) colMeans(read.table(text=x, sep=',', comment.char = '.', col.names = n))))

     value_1_mean value_2_mean
[1,]          1.0          3.0
[2,]          1.5          1.5

read.table(text=unlist(df), sep = ',',
            na.strings = '.', fill = TRUE, col.names = n) |>
   cbind(rn= rownames(df))|>
   aggregate(.~rn, mean, na.action = identity, na.rm = TRUE)

  rn value_1_mean value_2_mean
1  1          1.0          3.0
2  2          1.5          1.5

R相关问答推荐

如何创建构成多个独立列条目列表的收件箱框列？

从多个前置日期中获取最长日期

在某些栏和某些条件下，替换dfs列表中的NA

如何在观测缺失的地方添加零

对于变量的每个值，仅 Select 包含列表中所有值的值.R

从所有项的 struct 相同的两级列表中，将该第二级中的所有同名项绑定在一起

如何从像glm这样的模型中提取系数表的相关性？

可以替代与NSE一起使用的‘any_of()’吗？

根据列A中的差异变异列，其中行由列B中的相对值标识

在使用bslb和bootstrap5时，有没有办法更改特定dt行的 colored颜色 ？

将Posict转换为数字时的负时间(以秒为单位)

R中边际效应包中Logistic回归的交互作用风险比

Data.table'；S GForce-将多个函数应用于多列(带可选参数)

仅在R中的数据集开始和结束时删除所有 Select 列的具有NA的行

如何将一个方阵分解成没有循环的立方体

根据r中每行中的日期序列，使用列名序列创建新列

把代码写成dplyr中的group_by/摘要更简洁吗？

从多行中 Select 最小值

如何在分组蜂群小区中正确定位标签

残差与拟合图上标记点的故障排除