重新配置数据集

Question

我目前正在做一个课堂作业，并从一些奇怪的 500 个混乱的文本文件中创建了一个相当大的数据框。我目前在我的大数据框中有一列日期、纬度、经度和一堆不同的天气读数。

我得到了这个 .dat 文件，其中包含一些纬度和经度点的高程数据，尽管格式不是我需要它来将相关信息绑定到我的数据框。经度在列标题中（当我使用 read.table() 时），纬度在“行名”列中。

read.table(.dat)

rownames 113.75 111.25 108.75
36.25   1526.75 1759.56 1948.38
33.75   612.94  1079.12 1979.31
31.25   328.62  1228.88 1483.69

所需的数据帧

Longitude Latitude Elevation
113.75    36.25    1526.75
113.75    33.75    612.94
113.75    31.25    328.62
111.25    36.25    1759.56
111.25    33.75    1079.12
111.25    31.25    1228.88
108.75    36.25    1948.38
108.75    33.75    1979.31
108.75    31.25    1483.69

我想将其更改为包含纬度、经度和高程读数列的数据框，以便我可以将相应的高程数据添加到更大的数据框中。我很难找到一个函数，或者编写一个正则表达式来完成这个。请让我知道我应该如何进行！

Answer 1

您可以使用reshape2 pacakge 来帮助融合您的数据。例如

dat<-read.table(text="rownames 113.75 111.25 108.75
36.25   1526.75 1759.56 1948.38
33.75   612.94  1079.12 1979.31
31.25   328.62  1228.88 1483.69", header=T, check.names=F)

long <- reshape2::melt(dat, "rownames")
long$variable<-as.numeric(as.character(long$variable))
long <- setNames(long, c("Latitute","Longitude","Elevation"))

long
#   Latitute Longitude Elevation
# 1    36.25    113.75   1526.75
# 2    33.75    113.75    612.94
# 3    31.25    113.75    328.62
# 4    36.25    111.25   1759.56
# 5    33.75    111.25   1079.12
# 6    31.25    111.25   1228.88
# 7    36.25    108.75   1948.38
# 8    33.75    108.75   1979.31
# 9    31.25    108.75   1483.69

str(long)
# 'data.frame': 9 obs. of  3 variables:
#  $ Latitute : num  36.2 33.8 31.2 36.2 33.8 ...
#  $ Longitude: num  114 114 114 111 111 ...
#  $ Elevation: num  1527 613 329 1760 1079 ...