Question

我正在为几个dfs做一些转换步骤，所以我冒险进入了应用，lapply，扫描等美丽的世界。不幸的是，我试图使用扫描列出的dfs。

我想做的是根据每个数据框的第一行的平均值计算每个值的百分比。

所以我把我的dfs放到一个最终看起来像这样的列表中;

df1 <- read.table(header = TRUE, text = "a        b
1 16.26418 19.60232
2 16.09745 18.44320
3 17.25242 18.21141
4 17.61503 17.64766
5 18.35453 19.52620")

df2 <- read.table(header = TRUE, text = "a        b
1 4.518654 4.346056
2 4.231176 4.175854
3 2.658694 4.999478
4 3.348019 2.345594
5 3.103378 2.556690")

list.one <- list(df1,df2)

> list.one
[[1]]
         a        b
1 16.26418 19.60232
2 16.09745 18.44320
3 17.25242 18.21141
4 17.61503 17.64766
5 18.35453 19.52620

[[2]]
         a        b
1 4.518654 4.346056
2 4.231176 4.175854
3 2.658694 4.999478
4 3.348019 2.345594
5 3.103378 2.556690

现在我计算每个第一行的平均值并存储它

  one.hundred <- lapply(list.one, function(i) 
    {rowMeans(i[1,], na.rm=T)})

> one.hundred
[[1]]
       1 
17.93325 

[[2]]
       1 
4.432355

现在我计算他们的百分比（与存储在第二个列表中的值相比），我想出的最好的是这个相当繁琐的解决方法：

df1.per<-sweep(list.one[[1]], 1, one.hundred[[1]], 
               function(x,y){100/y*x})
df2.per<-sweep(list.one[[2]], 1, one.hundred[[2]], 
               function(x,y){100/y*x})

list.new(df1.per,df2.per)

如果有人可以建议我更简单，最好是基于列表的解决方案，这将是很有帮助的。

非常感谢。

Answer 1

此处使用sapply和Map的另一种方法也会返回data.frames列表：

means <- sapply(list.one, function(df) rowMeans(df[1, ], na.rm = TRUE))
Map(function(vec, df) df/vec*100, means, list.one)
#$`1`
#          a         b
#1  90.69287 109.30713
#2  89.76315 102.84360
#3  96.20353 101.55109
#4  98.22553  98.40748
#5 102.34916 108.88266
#
#$`1`
#          a         b
#1 101.94702  98.05298
#2  95.46113  94.21299
#3  59.98378 112.79507
#4  75.53589  52.91981
#5  70.01646  57.68243

数据：

> dput(list.one)
list(structure(list(a = c(16.26418, 16.09745, 17.25242, 17.61503, 
18.35453), b = c(19.60232, 18.4432, 18.21141, 17.64766, 19.5262
)), .Names = c("a", "b"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5")), structure(list(a = c(4.518654, 4.231176, 
2.658694, 3.348019, 3.103378), b = c(4.346056, 4.175854, 4.999478, 
2.345594, 2.55669)), .Names = c("a", "b"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5")))

在R中使用扫描（或类似的东西）列出所列数据帧

1 个答案:

数据：