Error in initdfr : object 'initdfr' not found

[sk233]

when i run your code:

for (i in 1:n) {
+     dti = dat[[i]]
+     dfr = initdfr
+     dfr$name = rep(dti$name, 210)
+     dfr$region = rep(dti$region, 210)
+     for (inc in dti$income) {
+         ii = which(dfr$year == as.integer(inc[1]))
+         dfr$income[ii] = inc[2]
+     }
+     for (pop in dti$population) {
+         ii = which(dfr$year == as.integer(pop[1]))
+         dfr$pop[ii] = pop[2]
+     }
+     for (life in dti$lifeExpectancy) {
+         ii = which(dfr$year == as.integer(life[1]))
+         dfr$life[ii] = life[2]
+     }
+ 
+     tbls2 = rbind(tbls2, dfr)
+ }

it point out this:Error in initdfr : object 'initdfr' not found why?thank you

[sk233]

do i need to install package which includes the initdr?what is it?

[YuxiaoLuo]

Got the same problem.

[lqyygy]

initdfr = data.frame(name = rep(0,210),region=rep(0,210),year = 1800:2009, income=rep(0,210),pop = rep(0,210),life=rep(0,210))

[lqyygy]

The author's code is no longer work. Here is the revised edition test with R version 4.0.5 and ggplot2 3.3.3

require(RJSONIO) dat = fromJSON('E:/Wealth and Health.txt')

rawdata = readLines('E:/Wealth and Health.txt')

data=unlist(strsplit(rawdata,"\[\{"|":"|","|":\[\[|\],\[|\]\],"|\]\]\},\{"|\]\]\}\]")) data=data[which(data!="")]

tbls = NULL

nameind = which(data == "name") regind = which(data == "region") incind = which(data == "income") popind = which(data == "population") lifind = which(data =="lifeExpectancy") endpoint = nameind-1 endpoint = endpoint[2:180] endpoint[180] = 45999

name = data[nameind+1] region=data[regind+1]

initdfr = data.frame(name = rep(0,210),region=rep(0,210),year = 1800:2009, income=rep(0,210),pop = rep(0,210),life=rep(0,210))

n=length(dat) for (i in 1:n) { dti = dat[[i]] dfr = initdfr dfr$name = rep(dti$name, 210) dfr$region = rep(dti$region, 210) for (inc in dti$income) { ii = which(dfr$year == as.integer(inc[1])) dfr$income[ii] = inc[2] } for (pop in dti$population) { ii = which(dfr$year == as.integer(pop[1])) dfr$pop[ii] = pop[2] } for (life in dti$lifeExpectancy) { ii = which(dfr$year == as.integer(life[1])) dfr$life[ii] = life[2] }

tbls = rbind(tbls, dfr)

}

itpl = function(a) { ind = which(a>0) if (ind[1]>1) a[1:(ind[1]-1)] = rep(a[ind[1]],ind[1]-1) n = length(ind) if (ind[n]<length(a)) a[(ind[n]+1):length(a)]=rep(a[ind[n]],length(a)-ind[n]) for(i in 1:(n-1)) a[ind[i]:ind[i+1]] = rep(a[ind[i]],ind[i+1]-ind[i]+1) + (seq(ind[i],ind[i+1],1)-ind[i])*(a[ind[i+1]]-a[ind[i]])/(ind[i+1]-ind[i]) return (a) }

#Two country with only one record, meaningless ind=which(tbls$name=="Mayotte") tbls=tbls[-ind,] ind=which(tbls$name=="Tokelau") tbls=tbls[-ind,] name=name[c(-28,-177)] region=region[c(-28,-177)]

#Linear interpolation for (i in 1:178) { ind=(210*(i-1)+1):(i*210) tbls$income[ind]=itpl(tbls$income[ind]) tbls$pop[ind]=itpl(tbls$pop[ind]) tbls$life[ind]=itpl(tbls$life[ind]) }

require(ggplot2)

#Draw function with ggplot2 drawit=function(yr,scl=15) { ind=which(tbls$year==yr) d.f=data.frame(yr=yr) p=ggplot(aes(x=log(income),y=life,size=pop,colour=as.factor(region)),pch=21,data=tbls[ind,]) p+geom_point(show_guide = FALSE)+ geom_point(shape = 1,colour = "black",show_guide = FALSE)+ xlim(5.5,11.7)+ylim(10,83)+scale_size(range = c(1, scl))+ annotate("text", x=10, y=15, label = yr,size=30,color="grey") } #drawit(1800)

#Automatically repeat the drawing procedure finaldraw=function(a,b) { for (i in 1:10) print(drawit(a)) for (i in a:b) print(drawit(i)) for (i in 1:10) print(drawit(b)) }

#finaldraw(1800,2009)

require(animation)

#sett ffmpeg in Windows = =|| oopts = ani.options(ffmpeg = "E:/ffmpeg/bin/ffmpeg.exe")

#Use the function from animation to make the final movie saveVideo({ finaldraw(1800,2009) ani.options(interval = 0.1, nmax = 230) }, video.name = "HansRosling.mp4", other.opts = "-b 500k")

[xmingpyccnu]

修改了正则表达式之后才跑成功的： data= unlist(strsplit(x = rawdata,split = "\[\{"|":"|","|":\[\[|\],\[|\]\],"|\]\]\},\{"|\]\]\}\]"))