में प्रत्येक पैनल के लिए अलग-अलग अवरोध के साथ एक लंबवत रेखा जोड़ें I histograms के पैनल बनाने के लिए ggplot2 का उपयोग कर रहा हूं, और मैं प्रत्येक समूह के माध्य पर एक लंबवत रेखा जोड़ने में सक्षम होना चाहता हूं।ggplot2
require("ggplot2")
# setup some sample data
N <- 1000
cat1 <- sample(c("a","b","c"), N, replace=T)
cat2 <- sample(c("x","y","z"), N, replace=T)
val <- rnorm(N) + as.numeric(factor(cat1)) + as.numeric(factor(cat2))
df <- data.frame(cat1, cat2, val)
# draws a single histogram with vline at mean
qplot(val, data=df, geom="histogram", binwidth=0.2) +
geom_vline(xintercept=mean(val), color="red")
# draws panel of histograms with vlines at global mean
qplot(val, data=df, geom="histogram", binwidth=0.2, facets=cat1~cat2) +
geom_vline(xintercept=mean(val), color="red")
मैं इसे कैसे उपयोग करने के लिए प्रत्येक पैनल के समूह एक्स-अवरोधन के रूप में मतलब है प्राप्त कर सकते हैं: लेकिन geom_vline() प्रत्येक पैनल के लिए एक ही अवरोधन (अर्थात वैश्विक मतलब) का उपयोग करता है? (बोनस पॉइंट्स यदि आप लाइन के आधार पर टेक्स्ट के लेबल को भी जोड़ सकते हैं।)