Fatal编程技术网
  • r/
  • 用R中的data.frame制作表格

用R中的data.frame制作表格

r

用R中的data.frame制作表格,r,R,如何制作数据框或表格 TIME_PERIOD MARRIAGE_LICENSES 1 2011-01 742 2 2011-02 796 3 2011-03 1210 4 2011-04 1376 .... 看起来像 01 02 03 04 05 06 07 08 09 10 11 11 2011 742 7

如何制作数据框或表格

   TIME_PERIOD MARRIAGE_LICENSES
1      2011-01               742
2      2011-02               796
3      2011-03              1210
4      2011-04              1376
....
看起来像

      01  02  03   04  05  06  07  08  09  10  11 11
2011 742 796 1210 1376 
2012
2013
2014
2015
依此类推？

使用
重塑2
可以执行以下操作（这将为您提供一个
data.frame
）

如果要像行名一样使用格式和年份，请执行以下操作：

df <- dcast(dat, year~month, value.var = "MARRIAGE_LICENSES")
rownames(df)  <- df$year
df[,-1]
使用
重塑2
可以执行以下操作（这将为您提供一个
data.frame
）

如果要像行名一样使用格式和年份，请执行以下操作：

df <- dcast(dat, year~month, value.var = "MARRIAGE_LICENSES")
rownames(df)  <- df$year
df[,-1]
你可以这样做

library(tidyr) ## for separate()
xtabs(MARRIAGE_LICENSES ~ ., separate(df, TIME_PERIOD, c("year", "month"), "-"))
#       month
# year     01   02   03   04
#   2011  742  796 1210 1376
数据：

df <- structure(list(TIME_PERIOD = structure(1:4, .Label = c("2011-01", 
"2011-02", "2011-03", "2011-04"), class = "factor"), MARRIAGE_LICENSES = c(742L, 
796L, 1210L, 1376L)), .Names = c("TIME_PERIOD", "MARRIAGE_LICENSES"
), class = "data.frame", row.names = c("1", "2", "3", "4"))

df您可以这样做


library(tidyr) ## for separate()
xtabs(MARRIAGE_LICENSES ~ ., separate(df, TIME_PERIOD, c("year", "month"), "-"))
#       month
# year     01   02   03   04
#   2011  742  796 1210 1376


数据：


df <- structure(list(TIME_PERIOD = structure(1:4, .Label = c("2011-01", 
"2011-02", "2011-03", "2011-04"), class = "factor"), MARRIAGE_LICENSES = c(742L, 
796L, 1210L, 1376L)), .Names = c("TIME_PERIOD", "MARRIAGE_LICENSES"
), class = "data.frame", row.names = c("1", "2", "3", "4"))



df您可以使用
数据执行此操作。表如下所示：


library(data.table)
setDT(dat)
dcast(dat, format(TIME_PERIOD, "%Y") ~ format(TIME_PERIOD, "%m"),
      value.var = "MARRIAGE_LICENSES")



（注意：需要将
结婚许可证
存储为
日期
或具有适当
格式
方法的其他对象）
您可以使用
数据执行此操作。表
如下：


library(data.table)
setDT(dat)
dcast(dat, format(TIME_PERIOD, "%Y") ~ format(TIME_PERIOD, "%m"),
      value.var = "MARRIAGE_LICENSES")



（注意：需要将
MARRIAGE\u许可证
存储为
日期
或具有适当
格式
方法的其他对象）
欢迎使用StackOverflow。请阅读并跟读。我们希望您尝试自己编写程序。然后你发布你的代码和你得到的输出；我们帮助解决这个问题。在本例中，您需要创建一个包含13列的表：年和12个月。在连字符处拆分年-月数据；使用这两部分作为行数据（年）和列索引（月）。这能让你走吗？欢迎来到StackOverflow。请阅读并跟读。我们希望您尝试自己编写程序。然后你发布你的代码和你得到的输出；我们帮助解决这个问题。在本例中，您需要创建一个包含13列的表：年和12个月。在连字符处拆分年-月数据；使用这两部分作为行数据（年）和列索引（月）。这能让你走吗？