启动RStudio后,菜单栏点击Tools>Install Packages…中输入ggplot2,安装;
在新建的R Script文件中输入下面代码来启用ggplot2包: library(ggplot2) 将光标放在上面代码所在行,点击菜单Code->Run Select Lines运行本行代码;快捷键Ctrl+Enter;以下每行代码都需运行,不再重复。
输入以下代码来读取CSV文件数据到crime变量中: crime<-read.csv(‘c:\Users\…\crimeRatesByState2005.csv’,sep=",", header=TRUE) 其中,请将“c:\Users\…\crimeRatesByState2005.csv”改为你自己的文件路径。
通过以下两行代码来剔除掉华盛顿特区和全美平均值,并将剔除后的数据存入crime2变量中: crime2 <- crime[crime$state != “District of Columbia”,]
crime2 <- crime2[crime2$state != “United States”,]
以数据集中的murder列为x坐标,burglary为y坐标绘制散点图如下: ggplot(crime2, aes(x = murder, y = burglary)) + geom_point()
ggplot(crime2, aes(x = murder, y = burglary)) +geom_point()+ xlim(0, 10)+ ylim(0, 1200)
ggplot(crime2, aes(x = murder, y = burglary)) + geom_point()+ xlim(0, 10)+ ylim(0, 1200)+ geom_smooth()
在R绘图窗口中点击Export->Save as PDF将绘图结果保存为pdf,注意保存选项的Orientation。
将所保存的绘图结果Pdf文件导入到Illustrator中,进行修饰完善,具体过程不再赘述,请自行百度解决。
图6-7英文和中文版分别如下图所示,大家提交作品文字部分按中文版处理,图形效果参考英文版。
实验报告的实验题目、实验目的、实验内容请按照本博客所给内容填写,实验时间按上机时间填写。实验结果为上图,可以手绘,可以文字描述,也可以将图缩小打印贴上。