导入函数包psych library()这个函数是把括号内包含的函数包导入，然后才可以运用psych中的一些现成的函数or模型。psych函数包好像是一个和心理学等有关的函数包，Rstudio里给的psych函数包的定义如下：A general purpose toolbox for personality, psychometric theory and experimental psychology. Functions a...
library(ggplot2) 1. 结果1: year 1. 输入2: percentbar <- gather(percentbar,key=subject,value=TEH,-year)percentbar$subject <- factor(percentbar$subject,levels = c("Individual","society","government"))ggplot(percentbar,aes(x=year,y=TEH,fill=subject))+geom_bar(stat="identity")+geom_text...