local width=768
	local height=512
	local max=0
	local first=8
	if code=="00000" then
		first=0
	elseif code=="19000" then
		first=18
	end
	local ptable={}
	for _,v in pairs(mw.loadData("Module:국제조사/"..string.sub)) do
		if v.code~="00000" and string.sub~="局" then
			for y=1,20 do
				local p=v.value[y]
				if p>max then
					max=p
				end
			end
			local hue=0
			local tail=string.sub
			if string.sub=="1" then
				hue=270
			elseif tail=="정" then
				hue=90
			elseif tail=="촌" then
				hue=180
			end
			ptable[#ptable+1]={
				code=v.code,
				name=v.name,
				value=v.value,
				hue=hue
		end
	end
	local marks={}
	return {
		width=width,
		height=height,
		padding=16,
		signals={
				name="yr",
				init=19,
				streams={
						type="mousemove",
						expr="min(max(floor(eventY/"..(height/(20-first)).."+"..first.."),"..first.."),19)"
				name="yrtext",
				init={
					"2015年",
					"(平成27年)"
				streams={
						type="mousemove",
						expr="[(1920+yr*5)+'年','('+(1920+yr*5<1926?'大正'+(1920+yr*5-1911):1920+yr*5<1989?'昭和'+(1920+yr*5-1925):'平成'+(1920+yr*5-1988))+'年)']"
				name="count",
				init=#ptable
				name="rankrange",
				init=1,
				streams={
						type="click",
						expr="count<=50?1:rankrange==1?count-49:1"
		data={
				name="table",
				values=ptable,
				transform={
						type="formula",
						field="last",
						expr="datum.value[19]"
						type="sort",
						by={
							"-last",
							"code"
						type="rank"
						type="filter",
						test="rankrange<=datum.rank && datum.rank<=49+rankrange"
						type="formula",
						field="active",
						expr="datum.value[yr]"
		scales={
				name="xscale",
				type="ordinal",
				points=true,
				padding=0.75,
				domain={
					data="table",
					field="rank"
				range={
					48,
					width
				name="yscale",
				domain={
					0,
					max
				nice=true,
				range={
					height-72,
					0
		axes={
				type="y",
				scale="yscale",
				offset=-48,
				grid=true
		marks={
				type="rect",
				from={
					data="table"
				properties={
					update={
						xc={
							scale="xscale",
							field="rank"
						width={
							value=12
						y={
							scale="yscale",
							field="active"
						y2={
							scale="yscale",
							value=0
						fill={
							h={
								field="hue"
							s={
								value=0.5
							l={
								value=0.5
				type="group",
				from={
					data="table",
					transform={
							type="facet",
							groupby={
								"rank"
				marks={
						type="text",
						from={
							transform={
									type="countpattern",
									field="name",
									pattern="."
									type="rank"
						properties={
							update={
								align={
									value="center"
								baseline={
									value="top"
								fill={
									value="black"
								x={
									scale="xscale",
									field={
										parent="rank"
								y={
									field="rank",
									offset=height-72-8,
									mult=12
								text={
									field="text"
								font={
									value="TakaoGothic"
				type="text",
				properties={
					update={
						align={
							value="center"
						baseline={
							value="top"
						fill={
							value="black"
						fontSize={
							value=32
						x={
							value=width-80
						y={
							value=4
						text={
							signal="yrtext[0]"
						font={
							value="TakaoGothic"
				type="text",
				properties={
					update={
						align={
							value="center"
						baseline={
							value="top"
						fill={
							value="black"
						fontSize={
							value=18
						x={
							value=width-80
						y={
							value=40
						text={
							signal="yrtext[1]"
						font={
							value="TakaoGothic"
end
return {
	main=function(frame)
		local result=createGraph(frame:getParent.args.code)
		if result~=nil then
			return frame:extensionTag('graph',mw.text.jsonEncode(result),{mode='interactive'})
		else
			return ""
		end
	end