dvd-hover Try this x <- c(5,2,1,7) temp <- barplot(x,ylim=c(0,10)) lines(temp,x,type='l') lines(temp,x,type='p') text(temp,x,labels=x,pos=3) Good luck.
ryo [未知用户] 最近学校功课都是数据视觉化,嘎嘎嘎~ > library('googleVis') > iris %>% tbl_df Source: local data frame [150 x 5] Sepal.Length Sepal.Width Petal.Length Petal.Width Species (dbl) (dbl) (dbl) (dbl) (fctr) 1 5.1 3.5 1.4 0.2 setosa 2 4.9 3.0 1.4 0.2 setosa 3 4.7 3.2 1.3 0.2 setosa 4 4.6 3.1 1.5 0.2 setosa 5 5.0 3.6 1.4 0.2 setosa 6 5.4 3.9 1.7 0.4 setosa 7 4.6 3.4 1.4 0.3 setosa 8 5.0 3.4 1.5 0.2 setosa 9 4.4 2.9 1.4 0.2 setosa 10 4.9 3.1 1.5 0.1 setosa .. ... ... ... ... ... > Combo <- gvisComboChart(iris, xvar = 'Species', + yvar = c('Sepal.Length', 'Sepal.Width', 'Petal.Length', 'Petal.Width'), + options=list(seriesType = 'bars', + series='{1: {type:"line"}}')) > plot(Combo)