การควบคุมขนาดตัวอักษร ggplot geom_text

Question 1

ฉันพยายามเปลี่ยนฟอนต์เป็น 10 สำหรับเลเบลของพล็อตบาร์ของฉันggplot2โดยทำสิ่งนี้:

ggplot(data=file,aes(x=V1,y=V3,fill=V2)) +
    geom_bar(stat="identity",position="dodge",colour="white") + 
    geom_text(aes(label=V2),position=position_dodge(width=0.9),
                                                 hjust=1.5,colour="white") +
    theme_bw()+theme(element_text(size=10))

ggsave(filename="barplot.pdf",width=4,height=4)

แต่ภาพที่ได้จะมีขนาดตัวอักษรที่ใหญ่มากสำหรับป้ายพล็อตแท่ง

จากนั้นฉันก็คิดว่าจะแก้ไขgeom_text()ด้วยสิ่งนี้:

geom_text(size=10,aes(label=V2),position=position_dodge(width=0.9),
                                                   hjust=1.5,colour="white")

ฟอนต์ป้ายยิ่งแล้วใหญ่ ...

ฉันสามารถเปลี่ยนขนาดภายในgeom_textเป็น 3 และตอนนี้ดูเหมือนแบบอักษร 10 คล้ายกับป้ายชื่อแกน

ฉันสงสัยว่าเกิดอะไรขึ้น? ไม่theme(text=element_text(size=10))ใช้กับป้ายกำกับ?

แล้วทำไมขนาด 10 นิ้วถึงgeom_text()แตกต่างจากในtheme(text=element_text())?

Question 2

ต่อไปนี้เป็นตัวเลือกบางส่วนสำหรับการเปลี่ยนขนาดข้อความ / ฉลาก

library(ggplot2)

# Example data using mtcars

a <- aggregate(mpg ~ vs + am , mtcars, function(i) round(mean(i)))

p <- ggplot(mtcars, aes(factor(vs), y=mpg, fill=factor(am))) + 
            geom_bar(stat="identity",position="dodge") + 
            geom_text(data = a, aes(label = mpg), 
                            position = position_dodge(width=0.9),  size=20)

sizeในgeom_textการเปลี่ยนแปลงขนาดของgeom_textป้าย

p <- p + theme(axis.text = element_text(size = 15)) # changes axis labels

p <- p + theme(axis.title = element_text(size = 25)) # change axis titles

p <- p + theme(text = element_text(size = 10)) # this will change all text size 
                                                             # (except geom_text)

ด้วยเหตุนี้ขนาด 10 ใน geom_text () จึงแตกต่างจากในธีม (text = element_text ())

ใช่พวกเขาแตกต่างกัน ฉันทำการตรวจสอบด้วยตนเองอย่างรวดเร็วและดูเหมือนว่าจะอยู่ในอัตราส่วน ~ (14/5) สำหรับgeom_textขนาดต่อthemeขนาด

ดังนั้นการแก้ไขที่น่ากลัวสำหรับขนาดสม่ำเสมอคือการปรับขนาดตามอัตราส่วนนี้

geom.text.size = 7
theme.size = (14/5) * geom.text.size

ggplot(mtcars, aes(factor(vs), y=mpg, fill=factor(am))) + 
  geom_bar(stat="identity",position="dodge") + 
  geom_text(data = a, aes(label = mpg), 
            position = position_dodge(width=0.9),  size=geom.text.size) + 
  theme(axis.text = element_text(size = theme.size, colour="black"))

หลักสูตรนี้ไม่ได้อธิบายว่าทำไม? และเป็นไฟลนก้น (และฉันคิดว่ามีวิธีที่เหมาะสมกว่าในการทำสิ่งนี้)