Question

library(tidyverse)

我觉得有一个简单的解决方案，但我被卡住了。下面的代码创建了一个包含两个数据帧的简单列表（为了简化示例，它们是相同的，但实际数据具有不同的值）

Loc<-c("Montreal","Toronto","Vancouver","Quebec","Ottawa","Hamilton","Total")
Count<-c("2344","2322","122","45","4544","44","9421")

Data<-data_frame(Loc,Count)
Data2<-data_frame(Loc,Count)
Data3<-list(Data,Data2)

每个数据框都有＆＃34; Total＆＃34;在＆＃34; Loc＆＃34;列与对应的总数＆＃34;计数＆＃34;柱。我想通过除以＆＃34; Count＆＃34;中的每个值来计算每个数据帧的百分比。列总数，这是＆＃34;计数＆＃34;中的最后一个数字。柱。

我希望将百分比添加为每个数据框的新列。

对于此示例，总数是列中的最后一个数字，但实际上，它可以在列中的任何位置混合，并且可以通过相应的＆＃34; Total＆＃34; ＆＃34; Loc＆＃34;中的值柱。

我想使用purrr和Tidyverse：

以下是代码示例，但我仍然坚持这个百分比......

Data3%>%map(~mutate(.x,paste0(round(100*  (MISSING PERCENTAGE),2),"%"))

Answer 1

此解决方案仅使用base-R：

tpl

在行内隐藏总值时计算数据帧列表的百分比列

1 个答案: