R语言安装 + 读入csv数据画图的过程中学习到的东西~~(ง •_•)ง

总体来说，我觉得R语言和python在画图上是有些相似的~

一、安装

B站上搜一个UP主：基因学苑。看他的安装教程及设置，很详细。
总体来说就是先下 R，再下 RStudio，然后使用的话只用点开RStudio就行了。

二、读入CSV数据

1、读取数据的话，要先了解两个常用命令：getwd()、setwd()
（注意：每次关掉重新打开编译器的时候，要再次设置一下地址，不然会回归默认地址。）

获取工作目录：getwd()
可以将要处理的文件放在工作目录中~

设定工作目录：setwd()
（注意：Windows下路径要用斜杠’/‘或者2个反斜杠’\’，“\”需要转义。）

2、读入csv数据的两种方式：一次性读入、逐行读入。
⭐一次性读入：

#读入csv数据

data <- read.csv("drugbank.csv", header = FALSE)

#输出csv数据
直接print(data)的话可能会出现这样的报错？：
[ reached getOption(“max.print”) – omitted 267 rows ]

print(data)

#如果数据量并不特别大，且想全部显示，可以使用View()

View(data)

⭐逐行读入：用到readLines()、strsplit()
strsplit()函数：https://blog.csdn.net/L_J_Kin/article/details/103870410?
readLines()函数：https://blog.csdn.net/dayun555/article/details/103749043?

#先与文件建立连接

con <- file("D:\\Softwares\\Ryuyan\\data\\Test Data 1 for forecasting team.csv", "r")

#将一行数据赋值给 line，如果line不为空则一行行的输出：
此时的(con,1)的1代表指定每次只读入一行

line<-strsplit(readLines(con, 1), split=',')
while( length(line) != 0 ) {
	print(line)
    line<-strsplit(readLines(con, 1), split=',')
}

#关闭连接

close(con)

3、选择数据，循环画图并保存图片到本地的实现

⭐选择数据

这里用到了类似于python中切片的方法：

查看数据的类型：class()函数
经过strsplit()函数处理的数据，是list类型。

xname<-strsplit(readLines(con, 1), split=',')
xname <- xname[[1]][-(1:2)]
print(class(xname))
#结果为list

⭐循环画图并保存到本地
保存在工作目录里，通过setwd()指定目录。
主要需要处理图片的循环命名：paste()函数实现
paste()函数：https://blog.csdn.net/qq_43337249/article/details/115390572?

画图：
https://blog.csdn.net/qq_38131668/article/details/79905960?
https://blog.csdn.net/qq_35262405/article/details/104318560

保存到本地：https://blog.csdn.net/tandelin/article/details/87890280?

    yourfilename=paste("A",i,".png",sep="")
    jpeg(file=yourfilename)
    #jpeg(file="yourfilename.png")
    plot(line[[1]][-(1:2)],type = "o",col = "red",xlab = "time",ylab = "frequency", main = line[[1]][2])  
    dev.off()

三、保存代码

https://blog.csdn.net/zxyhfdl/article/details/82785679?

代码

con <- file("D:\\Softwares\\Ryuyan\\data\\Test Data 1 for forecasting team.csv", "r")

#第一行标签跳过
xname<-strsplit(readLines(con, 1), split=',')
xname <- xname[[1]][-(1:2)]
print(xname)

#每行数据读入并画图
line<-strsplit(readLines(con, 1), split=',')
i<-1
print(line)
while( length(line) != 0 ) {
    #print(line[[1]][-(1:2)])
    yourfilename=paste("A",i,".png",sep="")
    jpeg(file=yourfilename)
    #jpeg(file="yourfilename.png")
    plot(line[[1]][-(1:2)],type = "o",col = "red",xlab = "time",ylab = "frequency", main = line[[1]][2])  
    dev.off()
    line<-strsplit(readLines(con, 1), split=',')
    i<-i+1
}