##6N18 Normal Data<-as.data.frame(t(data_sample[,c(4:23)]))# 提取需要的数据,4-23列(样本)colnames(Data)<-Data[1,]# 将第一行变为列名 Data_2<-Data[-1,]%>%mutate(Sample=row.names(.))%>%merge(.,data_group,by="Sample")# 去除第一行并和分组信息合并str(Data_2)##'data.frame...
##散点 plot1<-ggplot(iris,aes(Sepal.Length,Sepal.Width))+ #散点 geom_point(aes(fill=Species...
ggplot2包含很多绘制线条的函数:大致可分为如下几类: 连接线:折线(geom_line)、路径线(geom_path)、阶梯线(geom_step) 参考线:水平线(geom_hline)、竖直线(geom_vline)、斜线(geom_abline) 线段和曲线:geom_segment、geom_spoke、geom_curve 函数曲线:geom_function、stat_function 示例 1. 连接线 主要有三...
最后一步是使用geom_segment函数来绘制线段。该函数需要提供起点和终点的坐标。示例代码如下: library(ggplot2)# 创建一个数据框,包含起点和终点的坐标df<-data.frame(x=c(1,2),y=c(1,2),xend=c(9,8),yend=c(9,8))# 使用ggplot2库的geom_segment函数绘制线段ggplot(df,aes(x=x,y=y,xend=xend,y...
ggplot() +geom_segment(type=as.factor(type)),color="black") + # 添加线 geom_point(color="black") + # 在节点周围添加一个黑色的边界。 geom_text(label=species)) + # 添加节点的标签 theme_bw()+ # 使用ggplot的黑白主题 theme( axis.text.x = element_blank(), # 移除x轴文字 ...
ggplot() +geom_segment(type=as.factor(type)),color="black") + # 添加线geom_point(color="black") + # 在节点周围添加一个黑色的边界。geom_text(label=species)) + # 添加节点的标签theme_bw()+ # 使用ggplot的黑白主题theme(axis.text.x = element_blank(), # 移除x轴文字axis.text.y = ele...
ggplot() + geom_point( color="black") + # 在节点周围添加一个黑色的边框 geom_text( label=species ) + # 添加节点的标签 1. 2. 3. 4. 5. 现在我们有了正确的节点,画出节点之间的连接。 get(obs) # 使用函数获得边信息 1. df[match(from, species)] # 匹配之前连接的节点数据框架中的 from...
ggplot() + geom_segment(type=as.factor(type)),color="black") + # 添加线 geom_point(color="black") + # 在节点周围添加一个黑色的边界。 geom_text(label=species)) + # 添加节点的标签 theme_bw()+ # 使用ggplot的黑白主题 theme(
突然有了灵感,做柱形图的时候可以不用geom_bar()或者geom_col()直接画柱子的函数,可以用geom_segment()画线段的函数,只是需要准备示例数据集的时候稍微做一个调整就可以了 正常柱形图的示例数据集如下 image.png 作图代码 library(readxl) library(ggplot2) ...
没有弧度的线段使用的是geom_segment()函数 有弧度可以使用geom_curve()函数 下面是一个小例子 代码语言:javascript 复制 library(ggplot2)b<-ggplot(mtcars,aes(wt,mpg))+geom_point()df<-data.frame(x1=2.62,x2=3.57,y1=21.0,y2=15.0)b+geom_curve(aes(x=x1,y=y1,xend=x2,yend=y2,colour="curve...