Bagaimana cara mengubah lebar garis di ggplot?

Datalink: data yang digunakan

Kode saya:

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'))

Hasil saya:

Hasil baru dengan aes (size = 2):

Pertanyaan saya: Apakah ada cara untuk mengontrol lebar garis dengan lebih tepat untuk menghindari hasil di plot kedua? Saya secara khusus menganggapnya tidak bersahabat dengan dokumen, dan lebih dari itu untuk tujuan penerbitan menyertakan plot dengan lebar garis yang baru ditentukan.

terbaik, ismail

Sementara @Didzis memiliki jawaban yang benar , saya akan memperluas beberapa poin

Estetika dapat diatur atau dipetakan dalam panggilan ggplot.

• Estetika yang ditentukan dalam aes (...) dipetakan dari data, dan legenda dibuat.

• Sebuah estetika juga dapat ditetapkan ke satu nilai, dengan mendefinisikannya di luar aes ().

Sejauh yang saya tahu, yang Anda inginkan adalah menyetel ukuran ke satu nilai, bukan memetakan dalam panggilan keaes()

Saat Anda memanggilnya aes(size = 2), membuat variabel yang dipanggil `2`dan menggunakannya untuk membuat ukuran, memetakannya dari nilai konstan seperti yang ada dalam panggilan ke aes(sehingga muncul di legenda Anda).

Menggunakan size = 1 (dan tanpanya reg_labellermungkin didefinisikan di suatu tempat di skrip Anda)

Figure29 +
    geom_line(aes(group=factor(tradlib)),size=1) +
    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'))

dan dengan size = 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'))

Sekarang Anda dapat menentukan ukuran agar berfungsi sesuai dengan ukuran gambar akhir dan jenis perangkat.

Lebar garis dalam ggplot2dapat diubah dengan argumen size=masuk geom_line().

#sample data
df<-data.frame(x=rnorm(100),y=rnorm(100))
ggplot(df,aes(x=x,y=y))+geom_line(size=2)

Lebar garis dalam ggplot2dapat diubah dengan argumen lwd=masuk geom_line().

geom_line(aes(x=..., y=..., color=...), lwd=1.5)

Jika Anda ingin mengubah lebar garis secara fleksibel, Anda dapat menggunakan "scale_size_manual", ini adalah prosedur yang sama untuk memilih warna, isi, alfa, dll.

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") ) 

Ini juga terlihat seperti jika Anda hanya meletakkan sizeargumen di geom_line()bagian tetapi tanpa argumen aes()itu akan menyesuaikan skala dengan tepat. Setidaknya ini bekerja dengan cara ini geom_densitydan saya memiliki masalah yang sama.