मैं आपको डेटा का एक विचार दूंगा और मुझे लगता है कि तब यह समझना आसान होना चाहिए कि मैं क्या हासिल करने की कोशिश कर रहा हूं।
Repex:
ID <- c(1, 1, 2, 3, 3, 3)
cat <- c("Others", "Others", "Population", "Percentage", "Percentage", "Percentage")
logT <- c(2.7, 2.9, 1.5, 4.3, 3.7, 3.3)
m <- c(1.7, 1.9, 1.1, 4.8, 3.2, 3.5)
aggr <- c("median", "median", "geometric mean", "mean", "mean", "mean")
over.under <- c("overestimation", "overestimation", "underestimation", "underestimation", "underestimation", "underestimation")
data <- cbind(ID, cat, logT, m, aggr, over.under)
data <- data.frame(data)
data$ID <- as.numeric(data$ID)
data$logT<- as.numeric(data$logT)
data$m<- as.numeric(data$m)
कोड:
Fig <- data %>% ggplot(aes(x = logT, y = m, color = over.under)) +
facet_wrap(~ ID) +
geom_point() +
scale_x_continuous(name = "log (True value)", limits=c(1, 7)) +
scale_y_continuous(name = NULL, limits=c(1, 7)) +
geom_abline(intercept = 0, slope = 1, linetype = "dashed") +
theme_bw() +
theme(legend.position='none')
Fig
मैं प्रत्येक ग्राफ के y अक्ष को मान के साथ लेबल करना चाहता हूं aggr
। तो ID 1 के लिए इसे माध्यिका कहना चाहिए, ID 2 ज्यामितीय माध्य और ID 3 माध्य के लिए।
मैंने कई चीजों की कोशिश की:
mtext(data1$aggr, side = 2, cex=1) #or
ylab(data1$aggr) #or
strip.position = "left"
लेकिन यह काम नहीं करता है।
मैं cat
ग्राफ़ के ऊपरी बाएँ कोने में जोड़ने का प्रयास कर रहा हूँ । तो आईडी 1 "अन्य", आईडी 2 "जनसंख्या" और आईडी 3 "प्रतिशत" के लिए। मैंने साथ काम करने की कोशिश की legend()
लेकिन मैं अभी तक समस्या का समाधान नहीं कर पाया हूं।