abikoushi · December 31, 2014 21:41 · abikoushi · Dec 31, 2014
diff --git a/dat_somusho.R b/dat_somusho.R
 dat_somusho <-
 structure(list(sex = structure(c(2L, 1L), .Label = c("female", 
 "male"), class = "factor"), `6-12` = c(1679437.5, 1743009.6), 
    `13-19` = c(2366812.5, 2450792.4), `20-29` = c(2352187.5, 
    2468424), `30-39` = c(2308312.5, 2415529.2), `40-49` = c(2327812.5, 
    2375228.4), `50-59` = c(2169375, 2057859.6), `60-64` = c(1925625, 
    1624626), `65-69` = c(1713562.5, 1377783.6), `70-79` = c(1464937.5, 
    974775.6), `80+` = c(975000, 445827.6)), .Names = c("sex", 
 "6-12", "13-19", "20-29", "30-39", "40-49", "50-59", "60-64", 
 "65-69", "70-79", "80+"), row.names = c("男性(n=24,375)", "女性(n=25,188)"
 ), class = "data.frame")
	dat_somusho <-
	structure(list(sex = structure(c(2L, 1L), .Label = c("female",
	"male"), class = "factor"), `6-12` = c(1679437.5, 1743009.6),
	`13-19` = c(2366812.5, 2450792.4), `20-29` = c(2352187.5,
	2468424), `30-39` = c(2308312.5, 2415529.2), `40-49` = c(2327812.5,
	2375228.4), `50-59` = c(2169375, 2057859.6), `60-64` = c(1925625,
	1624626), `65-69` = c(1713562.5, 1377783.6), `70-79` = c(1464937.5,
	974775.6), `80+` = c(975000, 445827.6)), .Names = c("sex",
	"6-12", "13-19", "20-29", "30-39", "40-49", "50-59", "60-64",
	"65-69", "70-79", "80+"), row.names = c("男性(n=24,375)", "女性(n=25,188)"
	), class = "data.frame")