R绘图-极坐标、条形图

# Library
library(fmsb)

# Create data: note in High school for Jonathan:
data <- as.data.frame(matrix( sample( 2:20 , 10 , replace=T) , ncol=10))
colnames(data) <- c(" 数学" , "english" , "biology" , "music" , "R-coding", "data-viz" , "french" , "physic", "statistic", "sport" )

# To use the fmsb package, I have to add 2 lines to the dataframe: the max and min of each topic to show on the plot!
data <- rbind(rep(20,10) , rep(0,10) , data)

# Check your data, it has to look like this!
head(data)

# The default radar chart
radarchart(data)

library("vcd")
data(Arthritis, package="vcd")
table(Arthritis$Improved)

library(ggplot2)
ggplot(Arthritis, aes(x=Improved)) + geom_bar()
labs(title="Simple Bar chart",
     x="Improvement", y="Frequency")
ggplot(Arthritis, aes(x=Improved)) + geom_bar()
labs(title="Horizontal Bar chart",
     x="Improvement",
     y="Frequency")
coord_flip()