Natural Language Analuysis
咱从官方网的sample拷贝来的代码，昨儿尝试运行了一下还行，第二次运行时就只看到代码而已... :plain:
就不晓得很普通的图表而已，竟然都需要出动到玄学来拯救？难道一见到图表，新加坡国旗就要换新旗子了？（愚蠢的新加坡人）
# Set the googleVis options first to change the behaviour of plot.gvis, so that only the chart component of the HTML file is written into the output file.
op <- options(gvis.plot.tag='chart')
CityPopularity$Mean=mean(CityPopularity$Popularity)
plots <- gvisComboChart(CityPopularity, xvar='City',
yvar=c('Mean', 'Popularity'),
options=list(seriesType='bars',
width=450, height=300,
title='City Popularity',
series='{0: {type:"line"}}'))
plot(plots)
## Set options back to original options
options(op)
