# 下の行は
if (FALSE) { # (コメントアウト開始)
	dummy <- sapply(
		names(table.g),
		function(k) cat(sprintf("\t\"%s\", # 発表数 %i\n", k, table.g[k]))
	)
} # (コメントアウト終了)
# で生成

v.g <- c(
	"02_植物個体群", # 発表数 4
	"03_植物生理生態", # 発表数 18
	"SEPARATOR", # 1----------------------------
	"01_群落", # 発表数 14
	"11_遷移・更新", # 発表数 4
	"15_種多様性", # 発表数 4 
	"SEPARATOR", # 2----------------------------
	"04_植物繁殖", # 発表数 8
	"07_種子散布", # 発表数 3
	"30_物質循環", # 発表数 13 (分割前)
	"SEPARATOR", # 3----------------------------
	"14_進化", # 発表数 13 (分割前)
	"27_外来種", # 発表数 12
	"SEPARATOR", # 4----------------------------
	"17_動物群集", # 発表数 12
	"19_動物個体群", # 発表数 12
	"SEPARATOR", # 5----------------------------
	"21_行動", # 発表数 12
	"22_社会生態", # 発表数 6
	"20_動物生活史", # 発表数 5
	"SEPARATOR", # 6----------------------------
	"16_数理", # 発表数 16
	"32_英語（分野は不問）", # 発表数 5
	"SEPARATOR", # 7----------------------------
	"26_生態系管理", # 発表数 16 (分割前)
	"10_景観生態", # 発表数 7
	"31_生態学教育・普及", # 発表数 3
	"SEPARATOR", # 8----------------------------
	"25_保全", # 発表数 16 (生態系管理分割前)
	"END" # 9-----------------------------------
)