Question

您好，我想将这个数据框（dataInit）转换成另一个（dataFinish），我想要的是将行转换为列

date <- c('2021-03-14','2021-03-15')
CONG_TCH <- c(5.7,3.5)
CONG_SDCCH <- c(2.3,4.6)
ACC <- c(4.5,10.2)
RET <- c(3.5,2.6)
SER <- c(19.5,56.2)
dataInit <- data.frame(date,CONG_TCH,CONG_SDCCH,ACC,RET,SER)

values <- c('CONG_TCH','CONG_SDCCH','ACC','RET','SER')
Day1 <- c(5.7,2.3,4.5,3.5,19.5)
Day2 <- c(3.5,4.6,10.2,2.6,56.2)
dataFinish <- data.frame(values,Day1 ,Day2)

names(dataFinish)[2]<- '2021-03-14'
names(dataFinish)[3]<- '2021-03-15'

感谢帮助我是我在 R 中的一项任务

Answer 1

两次重塑数据：

library(tidyr)

dataInit %>%
  pivot_longer(cols = -date) %>%
  pivot_wider(names_from = date, values_from = value)

#   name       `2021-03-14` `2021-03-15`
#  <chr>             <dbl>        <dbl>
#1 CONG_TCH            5.7          3.5
#2 CONG_SDCCH          2.3          4.6
#3 ACC                 4.5         10.2
#4 RET                 3.5          2.6
#5 SER                19.5         56.2

或使用 data.table :

library(data.table)
dcast(melt(setDT(dataInit),id.vars = 'date'), variable~date, value.var = 'value')

将数据框中的列转换为行，将行转换为列

1 个答案: