腾讯会议的会议号
代码语言：javascript复制会议主题：R语言数据分析及数据可视化入门
会议时间：2021/06/09 18:30-20:30 (GMT 08:00) 中国标准时间 - 北京
点击链接入会，或添加至会议列表：
https://meeting.tencent.com/s/5x3nLLgsKyx0
会议 ID：862 550 011
手机一键拨号入会
8675536550000,,862550011# (中国大陆)
85230018898,,,2,862550011# (中国香港)
根据您的位置拨号
8675536550000 (中国大陆)
85230018898 (中国香港)
我的分享内容大约是30分钟，其他时间大家感兴趣的可以自由交流
下面的内容是我准备的PPT
20210609学术沙龙_页面_01.png
20210609学术沙龙_页面_02.png
20210609学术沙龙_页面_03.png
20210609学术沙龙_页面_04.png
20210609学术沙龙_页面_05.png
20210609学术沙龙_页面_06.png
20210609学术沙龙_页面_07.png
20210609学术沙龙_页面_08.png
20210609学术沙龙_页面_09.png
20210609学术沙龙_页面_10.png
20210609学术沙龙_页面_11.png
PPT 和 R语言实战参考书 的pdf版本以及 示例代码 可以在公众号后台回复 20210609获得
我手头还有两本 纸质版的 《R语言实战》 参考书。直播结束后我们送出2本纸质版的参考书。这两本书只送给此次沙龙活动举办班级的同学，采用随机抽取的方式
另外还有三本 《数量生态学——R语言的应用第二版》 纸质书，这三本送给公众号过来参加的读者。大家可以在文末留言集赞，点赞数第一名直接获得一本，集赞截止时间到今天下午6点半。另外两本也是直播结束后随机抽奖
书是这本
欢迎大家参加呀！
下面为了申请原创推文凑字数附上一个主成分分析的一个代码
代码语言：javascript复制library(readxl)
df<-read_excel("example_data/004.xlsx")
head(df)
df.pca<-prcomp(df[,1:7])
summary(df.pca)
pca.result<-df.pca$x
class(pca.result)
pca.result<-data.frame(pca.result)
pca.result$group<-as.character(df$target)
library(ggplot2)
ggplot(pca.result,aes(x=PC1,y=PC2))
geom_point(aes(color=group))
theme_bw()
labs(x="PC1 82.94%",y="PC2 16.36%")
stat_ellipse(geom="polygon",
aes(group=group,
color=group,
fill=group),
alpha=0.5)
coord_equal()
image.png
欢迎大家关注我的公众号
小明的数据分析笔记本
小明的数据分析笔记本 公众号 主要分享：1、R语言和python做数据分析和数据可视化的简单小例子；2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记；3、生物信息学入门学习资料及自己的学习笔记！
