随笔分类 -  R语言

上一页 1 2 3 4 5 6 7 8 9 ··· 27 下一页
摘要:001、加载R包 library(tidyverse) library(ggplot2) library(viridis) 02、生成基本图形 plot1 <- ggplot(data = mpg, aes(x = displ, y = hwy, color = class)) + geom_poi 阅读全文
posted @ 2023-08-17 23:37 小鲨鱼2018 阅读(228) 评论(0) 推荐(0)
摘要:001、问题 002、解决方法 library(tidyverse) head(mpg) 。 阅读全文
posted @ 2023-08-17 23:22 小鲨鱼2018 阅读(53) 评论(0) 推荐(0)
摘要:001、基础绘图 p <- ggplot(mtcars,aes(mpg,hp,colour=factor(cyl)))+geom_point() p ## 基础绘图 002、删除图例标题 p + theme(legend.title = element_blank()) ## 删除图例标题 003、 阅读全文
posted @ 2023-07-26 00:27 小鲨鱼2018 阅读(1092) 评论(0) 推荐(0)
摘要:001、 ggplot(mpg, aes(displ, hwy)) + geom_point(aes(color = drv)) + coord_cartesian(xlim = c(5, 7), ylim = c(10, 30)) ## 设定x、y轴范围 002、 修改x轴范围 ggplot(mp 阅读全文
posted @ 2023-07-25 23:24 小鲨鱼2018 阅读(1673) 评论(0) 推荐(0)
摘要:001、 p <- ggplot(mpg, aes(x = drv)) + geom_bar() p ## 基础绘图 002、使用scale_x_discrete 选项修改离散标签名称 p + scale_x_discrete(labels = c("4" = " xxx ", "f" = " yy 阅读全文
posted @ 2023-07-25 23:08 小鲨鱼2018 阅读(257) 评论(0) 推荐(0)
摘要:001、 dat <- data.frame(a <- 1:20, b <- 1:20) p <- ggplot(data = dat, aes(x = a, y = b)) + geom_point() p ## 基础绘图 002、修改x轴刻度位置 p +scale_x_continuous(br 阅读全文
posted @ 2023-07-25 22:56 小鲨鱼2018 阅读(166) 评论(0) 推荐(0)
摘要:001、 dat <- data.frame(a = 1:5, b = 1:5) dat library(ggplot2) p <- ggplot(data = dat, aes(x = a, y = b)) + geom_point() ## 默认绘图 p 002、调整y轴刻度线标签的角度 p + 阅读全文
posted @ 2023-07-25 19:30 小鲨鱼2018 阅读(251) 评论(0) 推荐(0)
摘要:001、 dat <- data.frame(a = 1:5, b = 1:5) dat library(ggplot2) p <- ggplot(data = dat, aes(x = a, y = b)) + geom_point() ## 默认边框, 绘制散点图 p 002、利用theme(p 阅读全文
posted @ 2023-07-25 17:52 小鲨鱼2018 阅读(496) 评论(0) 推荐(0)
摘要:001、 library(ggplot2) p<-ggplot(mtcars,aes(mpg,hp,colour=factor(cyl)))+geom_point() p p+theme(axis.line.x=element_line(linetype=1,color="black",size=0 阅读全文
posted @ 2023-07-23 10:33 小鲨鱼2018 阅读(253) 评论(0) 推荐(0)
摘要:001、 if(!requireNamespace("BiocManager",quietly=TRUE)) install.packages("BiocManager") BiocManager::install("topGO", force = TRUE) library(topGO) 。 阅读全文
posted @ 2023-07-15 09:51 小鲨鱼2018 阅读(667) 评论(0) 推荐(0)
摘要:001、设置长度 基础绘图: ggplot(data=mtcars, aes(x=mpg, y=disp, color=factor(cyl))) + geom_point() 绘图如下: 002、设置刻度标签的长度 library(ggplot2) ggplot(data=mtcars, aes( 阅读全文
posted @ 2023-07-14 14:56 小鲨鱼2018 阅读(5013) 评论(0) 推荐(0)
摘要:R语言中使用hist函数绘制直方图,参数为一个向量。 001、 dat <- c(rep(1, 10), rep(2, 5), rep(3, 6)) ## 参数为一个向量 dat hist(dat) ## 直接绘图 横坐标为区间, 纵坐标为落入该区间的频数 。 002、 break参数用于指定断点, 阅读全文
posted @ 2023-07-14 10:00 小鲨鱼2018 阅读(1328) 评论(0) 推荐(0)
摘要:001、 setEPS() postscript("test001.eps") ## 输出为EPS矢量图格式 plot(1:100, main="just a test") dev.off() 。 阅读全文
posted @ 2023-07-12 16:24 小鲨鱼2018 阅读(427) 评论(0) 推荐(0)
摘要:001、基础绘图 library(gcookbook) # For the data set p <- ggplot(heightweight, aes(x = ageYear, y = heightIn, colour = sex)) + geom_point() p ## 基础绘图 002、添加 阅读全文
posted @ 2023-07-10 11:32 小鲨鱼2018 阅读(3008) 评论(0) 推荐(0)
摘要:001、基础绘图 library(ggplot2) p <- ggplot(faithful, aes(x = eruptions, y = waiting)) + geom_point() ## 基础绘图 p 002、增加文本 p + annotate("text", x = 3, y = 48, 阅读全文
posted @ 2023-07-10 10:58 小鲨鱼2018 阅读(296) 评论(0) 推荐(0)
摘要:001、基础绘图 library(ggplot2) p <- ggplot(data.frame())+geom_point()+xlim(0,10)+ylim(0,10) ## 基础绘图 p 002、增加文本 an1 <- p + annotate("text", x = 5, y = 5, la 阅读全文
posted @ 2023-07-10 10:22 小鲨鱼2018 阅读(1135) 评论(0) 推荐(0)
摘要:001、基础绘图 ggplot(data=mtcars, aes(x=mpg, y=disp, color=factor(cyl))) + geom_point() ## 基础绘图 002、annotete在任意位置增加注释 ggplot(data=mtcars, aes(x=mpg, y=disp 阅读全文
posted @ 2023-07-09 18:04 小鲨鱼2018 阅读(155) 评论(0) 推荐(0)
摘要:001、 vec2 <- c(3, NA,6, 5, NA, NA, 8, 9, NA, 4, 7, 8) ## 测试向量 vec2 table(vec2) vec2 table(vec2, useNA="always") ## 统计NA, 增加参数 useNA="always" . 阅读全文
posted @ 2023-07-09 08:50 小鲨鱼2018 阅读(49) 评论(0) 推荐(0)
摘要:001、 ctrl + shift + 3 阅读全文
posted @ 2023-07-09 08:41 小鲨鱼2018 阅读(537) 评论(0) 推荐(1)
摘要:001、删除向量中的NA vec1 <- c(3, NA, 5, NA, NA, 8, 9, NA, 4, 7, 8) ## 测试向量 vec1 na.omit(vec1) ## 删除向量中NA值 002、删除数据框中包含NA的行 vec2 <- c(3, NA,6, 5, NA, NA, 8, 9 阅读全文
posted @ 2023-07-08 23:52 小鲨鱼2018 阅读(840) 评论(0) 推荐(0)

上一页 1 2 3 4 5 6 7 8 9 ··· 27 下一页