第一行和第一列为 headers for table in r
First row and column as headers for table in r
我有一个 table,我希望 table 的顶行和第一列为 headers(标题行和列)。我有一张我想要的图片和下面的 dput 代码:
在下面输入代码:
structure(c("TIDM", "12m yield", "Net assets (fund)", "Currency (prices)",
"12m yield", "XDGU", "3.89", "1,287.40", "USD", "3.89", "AT1D",
"5.48", "485.934", "GBP", "5.48", "PRFD", "4.63", "141.309",
"USD", "4.63", "PRFP", "4.63", "141.309", "GBP", "4.63"), .Dim = c(5L,
5L), .Dimnames = list(c("V1", "V2", "V3", "V4", "V5"), NULL))
您可以使用:
#Convert to dataframe if needed
df <- data.frame(df)
#Add rownames
rownames(df) <- make.unique(df[, 1])
#Add column names
colnames(df) <- df[1, ]
#We remove data from 1st row and 1st column
df <- df[-1, -1]
df
# XDGU AT1D PRFD PRFP
#12m yield 3.89 5.48 4.63 4.63
#Net assets (fund) 1,287.40 485.934 141.309 141.309
#Currency (prices) USD GBP USD GBP
#12m yield.1 3.89 5.48 4.63 4.63
我们使用 make.unique
创建唯一的名称,因为我们不能在数据中有重复的行名。如果要将数据保留为矩阵,可以删除第一行。
我有一个 table,我希望 table 的顶行和第一列为 headers(标题行和列)。我有一张我想要的图片和下面的 dput 代码:
在下面输入代码:
structure(c("TIDM", "12m yield", "Net assets (fund)", "Currency (prices)",
"12m yield", "XDGU", "3.89", "1,287.40", "USD", "3.89", "AT1D",
"5.48", "485.934", "GBP", "5.48", "PRFD", "4.63", "141.309",
"USD", "4.63", "PRFP", "4.63", "141.309", "GBP", "4.63"), .Dim = c(5L,
5L), .Dimnames = list(c("V1", "V2", "V3", "V4", "V5"), NULL))
您可以使用:
#Convert to dataframe if needed
df <- data.frame(df)
#Add rownames
rownames(df) <- make.unique(df[, 1])
#Add column names
colnames(df) <- df[1, ]
#We remove data from 1st row and 1st column
df <- df[-1, -1]
df
# XDGU AT1D PRFD PRFP
#12m yield 3.89 5.48 4.63 4.63
#Net assets (fund) 1,287.40 485.934 141.309 141.309
#Currency (prices) USD GBP USD GBP
#12m yield.1 3.89 5.48 4.63 4.63
我们使用 make.unique
创建唯一的名称,因为我们不能在数据中有重复的行名。如果要将数据保留为矩阵,可以删除第一行。