r - r中从列到行的数据转换
问题描述
我以这种方式有一个数据框
1954 <- c(a,b,c,d)#names of a person
X2 <- c(5,6,1,2)#their score
1955 <- c(e,f,g,h)
X3 <- c(2,4,6,9)
1956 <- c(j,k,l,m)
X4 <- c(1,3,6,8)
Girls <- data.frame(1954,X2,1955,X3,1956,X4)
女孩数据框看起来像这样
1954 X2 1955 X3 1956 X4 . . . . . . . n
a 5 e 2 j 1 . . . . . . . n
b 6 f 4 k 3 . . . . . . . . n
c 1 g 6 l 6 . . . . . . . . .n
d 2 h 9 m 8 . . . . . . . . . n
我希望数据框看起来像这样
`Name score year(#new col)
a 5 1954
b 6 1954
c 1 1954
d 2 1954
e 2 1955
f 4 1955
g 6 1955
h 9 1955
j 1 1956
k 3 1956
l 6 1956
m 8 1956
. . .
. . .
n n n`
这是一个学校项目,我正在努力转换数据。有人可以帮我解决这个问题吗?
解决方案
我不得不对您的代码进行一些更改,因为列名不能是数字。但这应该这样做:
X1954 <- c("a","b","c","d")#names of a person
X2 <- c(5,6,1,2)#their score
X1955 <- c("e","f","g","h")
X3 <- c(2,4,6,9)
X1956 <- c("j","k","l","m")
X4 <- c(1,3,6,8)
Girls <- data.frame(X1954,X2,X1955,X3,X1956,X4, stringsAsFactors = FALSE)
library(tidyr)
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
library(stringr)
Girls %>%
as_tibble() %>%
gather(key = "year", value = "Name", X1954, X1955, X1956) %>%
mutate(key = paste0(year, Name)) %>%
gather(key = "key", value = "score", X2, X3, X4) %>%
select(-key) %>%
mutate(year = str_extract(year, "[:digit:]+$"))
#> # A tibble: 36 x 3
#> year Name score
#> <chr> <chr> <dbl>
#> 1 1954 a 5
#> 2 1954 b 6
#> 3 1954 c 1
#> 4 1954 d 2
#> 5 1955 e 5
#> 6 1955 f 6
#> 7 1955 g 1
#> 8 1955 h 2
#> 9 1956 j 5
#> 10 1956 k 6
#> # … with 26 more rows
祝你的学校项目好运!
由reprex 包(v0.2.1)于 2019 年 2 月 9 日创建
推荐阅读
- printing - 斑马打印机 ZT610 不打印抛光标志,而 ZTC 110 可以
- performance - 有效地将结构字段转换为数组matlab
- php - PHPMailer 且未选择附件 - 无法发送电子邮件 - 表单消失
- spring - java.lang.IllegalStateException(未找到方法):使用自定义过滤器在一次测试中多次调用 MockMvc.perform
- reactjs - 通过 Firebase 将多张图片上传到 Cloud Storage
- similarity - 使用 tf-idf 进行分类,无需训练
- docker - 如何在默认桥接网络上连接我的 docker 容器?
- java - Java ArrayList,我不知道 IndexOutOfBoundsException 是什么
- r - R中的正则表达式列名和分组?
- c++ - CMake、Ninja 和 Visual Studio 2019 重建一切