使用dplyr进行表转换
我有一张叫df的桌子。此表包含三列（代码、说明和费率）使用dplyr进行表转换,r,dataframe,dplyr,subset,R,Dataframe,Dplyr,Subset,我有一张叫df的桌子。此表包含三列（代码、说明和费率） #代码 df我们可以从代码中删除空格，然后计数字符。允许使用过滤器仅对10位代码进行过滤。如果我们想要平均值，我们可以添加一个摘要（注意它不是2.75） 库（tidyverse） df% 过滤器（代码%>%str\u删除所有（\\s”）%%>%str\u长度%>%%`==`（10）） #>#tibble:8 x 3 #>代码描述率 #>
#代码
df我们可以从代码中删除空格，然后计数字符。允许使用过滤器
仅对10位代码进行过滤。如果我们想要平均值，我们可以添加一个摘要（注意它不是2.75）
库（tidyverse）
df%
过滤器（代码%>%str\u删除所有（\\s”）%%>%str\u长度%>%%`==`（10））
#>#tibble:8 x 3
#>代码描述率
#>
#>01012100…活马、驴、骡子和猪5
#>2 0101 29 10…活马（不包括纯种繁殖）5
#>30112990…供屠宰的马10
#>4 0101 30 00…活马（不包括屠宰、纯种…15
#>51019000…活驴7
#>6 0102 21 10…用于繁殖的纯种牛10
#>7 0102 21 30…纯种繁殖小母牛雌性牛，有n…15
#>8 0102 21 90…纯种繁殖母牛（不包括小母牛）20
df%>%
筛选器（代码%>%str\u删除所有（\\s”）%%>%str\u长度%>%%`=`（10））%%>%
总结（平均值=平均值（作为整数（比率）））
#>#tible:1 x 1
#>平均利率
#>
#> 1 10.9
由（v0.2.1）于2019-05-08创建
#CODE
df<-data.frame(
Code=c("01","0101","0101 21 00 00","0101 29","0101 29 10 00","0101 29
90 00","0101 30 00 00","0101 90 00 00","NA","0102 21","0102 21 10
00","0102 21 30 00","0102 21 90 00"),
Description=c("LIVE ANIMALS", "Live horses, asses, mules","Live horses,
asses, mules and hinnies","Pure-bred breeding horses","Live
horses (excl. pure-bred for breeding)","Horses for
slaughter","Live horses (excl. for slaughter, pure-bred for
breeding)","Live asses","Live mules and hinnies","Live
bovine animals","Pure-bred cattle for breeding","Pure-bred
breeding heifers female bovines that have never
calved","Pure-bred breeding cows (excl. heifers)"),
Rate=c("NA","NA","5","NA","5","10","15","7","NA","NA","10","15","20"))