文档建议反馈控制台
首页
学习
活动
专区
圈层
工具
MCP广场
文章/答案/技术大牛
发布
首页
学习
活动
专区
圈层
工具
MCP广场
返回腾讯云官网
社区首页 >问答首页 >R中的rbind -匹配列名

问R中的rbind -匹配列名
EN

Stack Overflow用户
提问于 2020-07-06 16:27:02
回答 3查看 335关注 0票数 0

如何绑定我的两个表(按列名进行匹配)？第一个表如下所示：

代码语言：javascript
运行
复制
result
     size KUALA LUMPUR   OTHERS  PENANG SELANGOR DARUL EHSAN   TOTAL
1:    big        0.000  116.861 138.366                0.000 136.207
2: medium      187.874 9656.649   0.000                0.000 223.415
3:  small      435.344  245.598 333.317              272.342 348.692
4:   tiny        0.000    0.000   0.000                0.000   0.000

而seond表只有两列：

代码语言：javascript
运行
复制
SummaryRegion
     experience              region1
1:      156.523               PENANG
2:      272.342 SELANGOR DARUL EHSAN
3:      343.998         KUALA LUMPUR
4:      296.601               OTHERS

我想要的输出如下：

代码语言：javascript
运行
复制
resultALL
     size KUALA LUMPUR   OTHERS  PENANG SELANGOR DARUL EHSAN   TOTAL
1:    big        0.000  116.861 138.366                0.000 136.207
2: medium      187.874 9656.649   0.000                0.000 223.415
3:  small      435.344  245.598 333.317              272.342 348.692
4:   tiny        0.000    0.000   0.000                0.000   0.000
5:  TOTAL      343.998  296.601 156.523              272.342      NA

我首先尝试转置results，然后通过region合并，所以当我把它转回来时，我会得到我想要的结果。不幸的是，我在行名和列名上遇到了麻烦，但我确信有一个简单的解决方案吗？

r
dplyr
tidyr
rbind
EN

回答 3

Stack Overflow用户

回答已采纳

发布于 2020-07-06 17:13:50

你可以试试：

代码语言：javascript
运行
复制
#Data
result <- structure(list(size = structure(1:4, .Label = c("big", "medium", 
"small", "tiny"), class = "factor"), KUALALUMPUR = c(0, 187.874, 
435.344, 0), OTHERS = c(116.861, 9656.649, 245.598, 0), PENANG = c(138.366, 
0, 333.317, 0), SELANGOR = c(NA, NA, NA, NA), DARUL = c(NA, NA, 
NA, NA), EHSAN = c(0, 0, 272.342, 0), TOTAL = c(136.207, 223.415, 
348.692, 0)), class = "data.frame", row.names = c(NA, -4L))

#Compute totals
vec <- as.data.frame(t(c(size='TOTAL',colSums(result[,-c(1,8)],na.rm=T),TOTAL=NA)))
#Bind
DF <- rbind(result,vec)

    size KUALALUMPUR    OTHERS  PENANG SELANGOR DARUL   EHSAN   TOTAL
1    big           0   116.861 138.366     <NA>  <NA>       0 136.207
2 medium     187.874  9656.649       0     <NA>  <NA>       0 223.415
3  small     435.344   245.598 333.317     <NA>  <NA> 272.342 348.692
4   tiny           0         0       0     <NA>  <NA>       0       0
5  TOTAL     623.218 10019.108 471.683        0     0 272.342    <NA>

或者使用您的第二次数据访问：

代码语言：javascript
运行
复制
#Data
SummaryRegion <- structure(list(experience = c(156.523, 272.342, 343.998, 296.601
), region1 = structure(c(4L, 1L, 2L, 3L), .Label = c("EHSAN", 
"KUALALUMPUR", "OTHERS", "PENANG"), class = "factor")), class = "data.frame", row.names = c("PENANG", 
"EHSAN", "KUALALUMPUR", "OTHERS"))

library(plyr)
#Using provided df
rownames(SummaryRegion)<-SummaryRegion$region1
vec2 <- as.data.frame(t(SummaryRegion[,c(1),drop=F]))
DF2 <- rbind.fill(result,vec2)


    size KUALALUMPUR   OTHERS  PENANG SELANGOR DARUL   EHSAN   TOTAL
1    big       0.000  116.861 138.366       NA    NA   0.000 136.207
2 medium     187.874 9656.649   0.000       NA    NA   0.000 223.415
3  small     435.344  245.598 333.317       NA    NA 272.342 348.692
4   tiny       0.000    0.000   0.000       NA    NA   0.000   0.000
5   <NA>     343.998  296.601 156.523       NA    NA 272.342      NA
票数 0
EN

Stack Overflow用户

发布于 2020-07-06 17:18:34

For better readability,it is suggested to have headers without white spaces。下面是使用基本R的一个可能的解决方案：

数据集：

代码语言：javascript
运行
复制
dput(result)
structure(c("size", "KUALA LUMPUR", "OTHERS", "PENANG", "SELANGOR DARUL EHSAN", 
"TOTAL", "big", "  0.000", " 116.861", "138.366", "  0.000", 
"136.207", "medium", "187.874", "9656.649", "  0.000", "  0.000", 
"223.415", "small", "435.344", " 245.598", "333.317", "272.342", 
"348.692", "tiny", "  0.000", "   0.000", "  0.000", "  0.000", 
"  0.000"), .Dim = 6:5, .Dimnames = list(NULL, NULL))

dput(SummaryRegion)
structure(list(experience = c(156.523, 272.342, 343.998, 296.601
), region1 = c("PENANG", "SELANGOR DARUL EHSAN", "KUALA LUMPUR", 
"OTHERS")), row.names = c("1:00", "2:00", "3:00", "4:00"), class = c("data.table", 
"data.frame"), .internal.selfref = <pointer: 0x7ffd9702b8e0>)

步骤：

代码语言：javascript
运行
复制
result<-t(result)
result<-cbind(row.names(result),result)
row.names(result)<-NULL

result2<- merge(result,SummaryRegion, by.x="V1", by.y="region1",all=TRUE) 
result2<-as.data.frame(t(result2))

names(result2)<-result2[1,]
result2<-result2[-1,]
row.names(result2)<-NULL

产出：

代码语言：javascript
运行
复制
result2

  KUALA LUMPUR   OTHERS  PENANG SELANGOR DARUL EHSAN   size   TOTAL
1        0.000  116.861 138.366                0.000    big 136.207
2      187.874 9656.649   0.000                0.000 medium 223.415
3      435.344  245.598 333.317              272.342  small 348.692
4        0.000    0.000   0.000                0.000   tiny   0.000
5      343.998  296.601 156.523              272.342   <NA>    <NA>
票数 0
EN

Stack Overflow用户

发布于 2020-07-06 17:30:34

下面是一个dplyr选项，使用@Duck中的数据。

代码语言：javascript
运行
复制
SummaryRegion_wide <- SummaryRegion %>%
  pivot_wider(names_from = region1, values_from = experience) %>%
  mutate(size = 'Total')

result %>%
  bind_rows(SummaryRegion_wide)


# ----
    size KUALALUMPUR   OTHERS  PENANG SELANGOR DARUL   EHSAN   TOTAL
1    big       0.000  116.861 138.366       NA    NA   0.000 136.207
2 medium     187.874 9656.649   0.000       NA    NA   0.000 223.415
3  small     435.344  245.598 333.317       NA    NA 272.342 348.692
4   tiny       0.000    0.000   0.000       NA    NA   0.000   0.000
5  TOTAL     343.998  296.601 156.523       NA    NA 272.342      NA
票数 0
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：

https://stackoverflow.com/questions/62760387

复制
相关文章

相似问题

领券

腾讯云开发者

扫码关注腾讯云开发者

扫码关注腾讯云开发者

领取腾讯云代金券

热门产品

热门推荐

更多推荐

Copyright © 2013 - 2025 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有 

深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 深公网安备号 44030502008569

腾讯云计算（北京）有限责任公司 京ICP证150476号 |  京ICP备11018762号 | 京公网安备号11010802020287

问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档