# #——knitr-settings回声= FALSE ------------------------------------------ 图书馆(knitr)美元opts_chunk组(整洁= FALSE) # #——exmaple-data-input回声= FALSE -------------------------------------- fl < -系统。file(package="SummerX"， "extdata"， "abc.csv") stopifnot(file.exists(fl)) abc <- read.csv(fl, row.names=1) fl <- system. csv(system. csv))文件(包=“SummerX”、“extdata”、“BRFSS-subset.csv”)stopifnot (file.exists (fl)) brfss <——read.csv (fl) # #——示例数据,eval = FALSE -------------------------------------------- ## 文件名< - file.choose() #“abc.csv”# # abc <——read.csv(文件名,row.names = 1) # #——ShortRead-vis eval = FALSE,整洁= FALSE ------------------------------- ## ## 创建一个情节从# # # # # # matplot矩阵(t (abc)类型=“l”,# # lty = 1, lwd = 3, # # xlab =“循环”,# # ylab =“计数”,# # cex.lab = 2) # # # #添加一个传说# #传说(“topright”,传说# # = rownames (abc), # # lty = 1, lwd = 3,坳= 1:5,# # cex = 1.8) # #——brfss-base-input-in,回声= FALSE ------------------------------------- fl < -系统。文件(包=“SummerX”、“extdata”、“BRFSS-subset.csv”)brfss < - read.csv (fl) brfss2010 < - brfss [brfss年= = 2010美元 ",] ## ---- brfss-base-input eval = FALSE ---------------------------------------- ## brfss < - read.csv (file.choose()) #“BRFSS-subset.csv”# # brfss2010 < - brfss [brfss年= = 2010美元 ",] ## ---- brfss-base-plot,eval = FALSE ----------------------------------------- ## ## 设置布局,抓住老选项# # opar < - par (mfcol = c(1、2)# #地块(sqrt(重量)~身高,# # brfss2010 [brfss2010性= =“女性”,美元),# #主要= 2010,女)# #地块(sqrt(重量)~身高,# # brfss2010 [brfss2010性= =“男性”,美元),# #主要= " 2010年男”)# # # #恢复旧的选择# # par (mfcol = c (1 1 )) ## ---- brfss-input-in,回声= FALSE ------------------------------------------ fl < -系统。文件(包=“SummerX”、“extdata”、“BRFSS-subset.csv”)brfss <——read.csv (fl) # #——brfss-input eval = FALSE --------------------------------------------- ## brfss < read.csv (file.choose()) #“BRFSS-subset.csv”# #——晶格,eval = FALSE ------------------------------------------------- ## 图书馆(晶格)# # xyplot (sqrt(重量)~ |性高,brfss2010) # #——lattice-violin eval = FALSE ------------------------------------------ ## bwplot (sqrt(重量)~因子(年)|性,brfss, # #面板= panel.violin) # #——ggplot2-input-in回声= FALSE ---------------------------------------- fl < -系统。文件(包=“SummerX”、“extdata”、“BRFSS-subset.csv”)brfss < - read.csv (fl) brfss2010 < - brfss [brfss年= = 2010美元 ",] ## ---- ggplot2-input eval = FALSE ------------------------------------------- ## brfss < - read.csv (file.choose()) #“BRFSS-subset.csv”# # brfss2010 < - brfss [brfss年= = 2010美元 ",] ## ---- ggplot2-density, eval=FALSE----------------------------------------- ## library(ggplot2) ## ggplot(brfss2010) + geom_density(alpha=.2) + ## aes(sqrt(Weight), fill=Sex) ## ----shiny, eval=FALSE--------------------------------------------------- ## system.file(package="SummerX", "shiny")