R 如何更改ggplot中的线宽?
数据链: 我的代码:R 如何更改ggplot中的线宽?,r,ggplot2,line-plot,R,Ggplot2,Line Plot,数据链: 我的代码: ccfsisims <- read.csv(file = "F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/GTAP-CGE/GTAP_NewAggDatabase/NewFiles/GTAP_ConsIndex.csv", header=TRUE, sep=",", na.string="NA", dec=".", strip.white=TRUE) ccfsirsts <-
ccfsisims <- read.csv(file = "F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/GTAP-CGE/GTAP_NewAggDatabase/NewFiles/GTAP_ConsIndex.csv", header=TRUE, sep=",", na.string="NA", dec=".", strip.white=TRUE)
ccfsirsts <- as.data.frame(ccfsisims)
ccfsirsts[6:24] <- sapply(ccfsirsts[6:24],as.numeric)
ccfsirsts <- droplevels(ccfsirsts)
ccfsirsts <- transform(ccfsirsts,sres=factor(sres,levels=unique(sres)))
library(ggplot2)
#------------------------------------------------------------------------------------------
#### Plot of food security index for Morocco and Turkey by sector
#------------------------------------------------------------------------------------------
#_Code_Begin...
datamortur <- melt(ccfsirsts[ccfsirsts$region %in% c("TUR","MAR"), ]) # Selecting regions of interest
datamortur1 <- datamortur[datamortur$variable %in% c("pFSI2"), ] # Selecting the food security index of interest
datamortur2 <- datamortur1[datamortur1$sector %in% c("wht","gro","VegtFrut","osd","OthCrop","VegtOil","XPrFood"), ] # Selecting food sectors of interest
datamortur3 <- subset(datamortur2, tradlib !="BASEDATA") # Eliminating the "BASEDATA" scenario results
allfsi.f <- datamortur3
fsi.wht <- allfsi.f[allfsi.f$sector %in% c("wht"), ]
Figure29 <- ggplot(data=fsi.wht, aes(x=factor(sres),y=value,colour=factor(tradlib)))
Figure29 + geom_line(aes(group=factor(tradlib),size=2)) + facet_grid(regionsFull~., scales="free_y", labeller=reg_labeller) + scale_colour_brewer(type = "div") +
theme(axis.text.x = element_text(colour = 'black', angle = 90, size = 13, hjust = 0.5, vjust = 0.5),axis.title.x=element_blank()) +
ylab("FSI (%Change)") + theme(axis.text.y = element_text(colour = 'black', size = 12), axis.title.y = element_text(size = 12, hjust = 0.5, vjust = 0.2)) +
theme(strip.text.y = element_text(size = 11, hjust = 0.5, vjust = 0.5, face = 'bold'))
ggplot2
中的ccfsims线宽可以通过geom\u Line()
中的参数size=
进行更改
#示例数据
df虽然@Didzis有这个优势,但我将进一步阐述几点
美学可以在ggplot调用中设置或映射
- aes(…)中定义的美学根据数据进行映射,并创建图例
- 通过在aes()之外定义美学,也可以将美学设置为单个值
据我所知,您想要的是将size设置为单个值,而不是在调用aes()
调用aes(size=2)
时,它会创建一个名为`2`
的变量,并使用该变量创建大小,将其从调用中的常量值映射到aes
(因此它会出现在图例中)
使用size=1(并且不使用reg_labeller
,这可能是在脚本中的某个地方定义的)
尺寸=2时
Figure29 +
geom_line(aes(group=factor(tradlib)),size=2) +
facet_grid(regionsFull~., scales="free_y") +
scale_colour_brewer(type = "div") +
theme(axis.text.x = element_text(colour = 'black', angle = 90,
size = 13, hjust = 0.5, vjust =
0.5),axis.title.x=element_blank()) +
ylab("FSI (%Change)") +
theme(axis.text.y = element_text(colour = 'black', size = 12),
axis.title.y = element_text(size = 12,
hjust = 0.5, vjust = 0.2)) +
theme(strip.text.y = element_text(size = 11, hjust = 0.5,
vjust = 0.5, face = 'bold'))
现在,您可以定义大小,以便与最终图像大小和设备类型配合使用。如果您想灵活修改线宽,可以使用“缩放大小”手册,这与选择颜色、填充、alpha等的步骤相同
library(ggplot2)
library(tidyr)
x = seq(0,10,0.05)
df <- data.frame(A = 2 * x + 10,
B = x**2 - x*6,
C = 30 - x**1.5,
X = x)
df = gather(df,A,B,C,key="Model",value="Y")
ggplot( df, aes (x=X, y=Y, size=Model, colour=Model ))+
geom_line()+
scale_size_manual( values = c(4,2,1) ) +
scale_color_manual( values = c("orange","red","navy") )
库(ggplot2)
图书馆(tidyr)
x=序列(0,10,0.05)
df如果您只是将size
参数放在geom_line()
部分,但没有aes()
它也会适当缩放。至少它在geom_density
中是这样工作的,我也有同样的问题。在ggplot2
中的线宽可以通过lwd=
在geom_Line()
中的参数进行更改
要更改线宽,只需将参数size=2添加到geom_line()。刚刚做了一些实验,看起来size不必假设1和2的整数值。我刚进入1.5,中间有些东西。我不确定这样的固定值是否在所有情况下都适用,但它至少看起来是可调的。我已经尝试过您的选项,但问题是行太粗,无法被认为是文档友好的。当使用aes(大小)时,我得到我添加的第二个图形。我希望能够以更系统的方式控制宽度,以便选择最合适的。@smailov83,不要在调用aes
时设置大小。请参阅我的答案(或ggplot2
书中的解释。默认值似乎小于size=1
,可能小于0.5
,因此在我看来,使用size=1
会产生相当好的结果。还可以使用十进制数字微调宽度(例如size=1.2
)。
Figure29 +
geom_line(aes(group=factor(tradlib)),size=2) +
facet_grid(regionsFull~., scales="free_y") +
scale_colour_brewer(type = "div") +
theme(axis.text.x = element_text(colour = 'black', angle = 90,
size = 13, hjust = 0.5, vjust =
0.5),axis.title.x=element_blank()) +
ylab("FSI (%Change)") +
theme(axis.text.y = element_text(colour = 'black', size = 12),
axis.title.y = element_text(size = 12,
hjust = 0.5, vjust = 0.2)) +
theme(strip.text.y = element_text(size = 11, hjust = 0.5,
vjust = 0.5, face = 'bold'))
library(ggplot2)
library(tidyr)
x = seq(0,10,0.05)
df <- data.frame(A = 2 * x + 10,
B = x**2 - x*6,
C = 30 - x**1.5,
X = x)
df = gather(df,A,B,C,key="Model",value="Y")
ggplot( df, aes (x=X, y=Y, size=Model, colour=Model ))+
geom_line()+
scale_size_manual( values = c(4,2,1) ) +
scale_color_manual( values = c("orange","red","navy") )
geom_line(aes(x=..., y=..., color=...), lwd=1.5)