r a

Question

ile Panel arsa

10 sütun içeren bir csv dosyam var ve bunlardan 7'sini metin dosyası zaman serileriyle birlikte okumak ve çizmek istiyorum. Aşağıdaki kodla, bunları çizebiliyorum ama birkaç sorunla karşılaşabiliyorum:

1] grafikleri arasındaki boşluk, her çizimin çok küçük görünmesini sağlıyor. Alanın çoğu nasıl kullanılır? 2] Efsane, 7. çizimin üzerine yerleştirilmiştir. 8 ve 9 panel akışı alanına yerleştirmek için nasıl (panel akışı alanları 8 kullanmayan yana ve 9)

3] ortak bir X ve Y ekseni yapmak ve her bir panel arsa bireysel başlık nasıl tanımlanır

library(qmap) 
obs <- read.table("D:/test.txt") 
mod <- read.csv("D:/pr.csv", header = FALSE) 
par(mfrow=c(3,3), oma = c(4, 1, 1, 1)) 
for(i in 4:10){ 
modp <- mod[,i] 
qm1.fit <- fitQmap(obs,modp, 
       method="PTF", 
       transfun="expasympt", 
       cost="RSS",wett.day=TRUE) 
qm1 <- doQmap(modprecip,qm1.fit) 

# repeated same procedure for qm2, qm3, qm4, and qm5 

# QQ-plot of all mappings 
obs_v <- as.vector(as.matrix(obs)) 
mod_v <- as.vector(as.matrix(modp)) 
qqplot(mod_v, obs_v, col = 1, xlab = 'Pm [mm/day]', ylab = 'Po [mm/day]') 
qqline(qm1, col = 2, lwd = 2) 
qqline(qm2, col = 3, lwd = 2) 
qqline(qm3, col = 4, lwd = 2) 
qqline(qm5, col = 5, lwd = 2) 

} 

legend("bottom", inset=c(-0.2,0), legend=c("A","B"), pch=c(1,3), title="Group") 

Herhangi bir yardım araziler Bu tür çok kolay ggplot2 kullanılarak oluşturulabilir

Answer 1

derece minnettar olacaktır.

library(ggplot2) 
d <- ggplot(diamonds, aes(carat, price, fill = ..density..)) + 
    xlim(0, 2) + stat_binhex(na.rm = TRUE) + theme(aspect.ratio = 1) 
d + facet_wrap(~ color) 

ggplot2 adresleri konular:

1. Beyaz boşluk artık senin soru tekrarlanabilir örnek içermiyor gibi ggplot2 belgelerinden aşağıdaki örneği göstereceğiz konu.
2. göstergenin yan tarafına güzelce yerleştirilmiştir. Varsayılan olarak
3. x ve y eksenleri aynıdır

Ayrıca this tutorial (bkz gerekirse bu özelliği kapatabilirsiniz) nasıl ggplot2 eserlerle hız kadar almak istiyorsanız ben yaklaşık ggplot2 yazdım.