पारदर्शी रंग ggplot2

Question

के साथ बॉक्सप्लॉट बनाएं I कई समूहों के साथ एक ग्राफिक बनाते हैं और लाइनों के एक सेट पर geom_boxplot() को प्लॉट करते हैं। हालांकि, बक्से को पारदर्शी रूप से रंगना अच्छा होगा ताकि लाइनों को देखा जा सके।

x11() 

name <- c("a", "a", "a", "a", "a", "a","a", "a", "a", "b", "b", "b","b", "b", "b","b", "b", "b") 
class <- c("c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3","c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3") 
year <- c("2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008") 
value <- c(100, 33, 80, 90, 80, 100, 100, 90, 80, 90, 80, 100, 100, 90, 80, 99, 80, 100) 

df <- data.frame(name, class, year, value) 
df 

मैं के साथ ग्राफिक आकर्षित:

p1 <- ggplot(df, aes(year, value)) 
p1 <- p1 + geom_line(aes(group=name, size=name),colour="#ff2300",alpha=0.5) +  facet_wrap(~ class, scales = "free_y") 
p1 <- p1 + geom_boxplot(aes(group=name)) 
print(p1) 

और मेरे सिस्टम पर कथा में रेखा की चौड़ाई सही ढंग से प्रदर्शित नहीं किया जाता

यहाँ कुछ नमूना डेटा है। क्या मुझसे कुछ गलत हो रही है? अग्रिम में धन्यवाद!

Answer 1

आप अपने बॉक्सप्लॉट में alpha तर्क जोड़ सकते हैं। उदाहरण के लिए:

geom_boxplot(aes(group=name), alpha = 0.8)

आप

Answer 2

बदलें geoms के आदेश पहले और उसके बाद लाइनों boxplot आकर्षित करने के लिए दे देंगे। हालांकि मुझे नहीं लगता कि आपका ग्राफ समझ में आता है। लाइन के आकार को बदलने के लिए आप नाम का उपयोग क्यों कर रहे हैं? क्या लिनटाइप को बदलने के लिए और अधिक समझदारी नहीं होगी? और मैं पहलुओं में free_y के खिलाफ सलाह देता हूं क्योंकि इससे तुलना करना मुश्किल हो जाता है।

name <- c("a", "a", "a", "a", "a", "a","a", "a", "a", "b", "b", "b","b", "b", "b","b", "b", "b") 
class <- c("c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3","c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3") 
year <- c("2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008") 
value <- c(100, 33, 80, 90, 80, 100, 100, 90, 80, 90, 80, 100, 100, 90, 80, 99, 80, 100) 

df <- data.frame(name, class, year, value) 
df 
library(ggplot2) 
p1 <- ggplot(df, aes(year, value)) 
p1 <- p1 + geom_boxplot(aes(group=name)) + geom_line(aes(group=name, size=name),colour="#ff2300",alpha=0.5) + 
    facet_wrap(~ class, scales = "free_y")