ggplot ile çizim yaparken uyarıların nasıl bastırılacağı

Question

Eksik değerleri ggplot'a iletirken, çok naziktir ve mevcut olduklarını bize bildirir. Bu etkileşimli bir oturumda kabul edilebilir, ancak raporlar yazarken, özellikle de birçoğu varsa çıktılar uyarılarla karıştırılmaz. Aşağıda, bir uyarı veren bir etiket eksik var.

geçen ifadenin etrafında suppressWarnings sarın Eğer

library(ggplot2) 
library(reshape2) 
mydf <- data.frame(
    species = sample(c("A", "B"), 100, replace = TRUE), 
    lvl = factor(sample(1:3, 100, replace = TRUE)) 
) 
labs <- melt(with(mydf, table(species, lvl))) 
names(labs) <- c("species", "lvl", "value") 
labs[3, "value"] <- NA 
ggplot(mydf, aes(x = species)) + 
    stat_bin() + 
    geom_text(data = labs, aes(x = species, y = value, label = value, vjust = -0.5)) + 
    facet_wrap(~ lvl) 

, orada olduğumuzu kaç uyarılar bir özetini olsun. Tartışma uğruna, bunun kabul edilemez olduğunu söyleyelim (ama aslında çok dürüst ve doğrudur). Bir ggplot2 nesnesini yazdırırken uyarıları nasıl (tamamen) bastırırız? Nihai bir nesneye arsa ve sonra print() atamak kolay olabilir

R> suppressWarnings(print(
+ ggplot(mydf, aes(x = species)) + 
+ stat_bin() + 
+ geom_text(data = labs, aes(x = species, y = value, 
+        label = value, vjust = -0.5)) + 
+ facet_wrap(~ lvl))) 
R> 

:

Answer 1

bir daha hedefli arsa-by- arsa yaklaşımı, arsa çağrılarınıza na.rm=TRUE eklemek olacaktır. E.g .:

ggplot(mydf, aes(x = species)) + 
     stat_bin() + 
     geom_text(data = labs, aes(x = species, y = value, 
           label = value, vjust = -0.5), na.rm=TRUE) + 
     facet_wrap(~ lvl) 

Answer 2

Sen print() çağrı değil ggplot() nesnenin yaratılması etrafında suppressWarnings() gerekir.

plt <- ggplot(mydf, aes(x = species)) + 
    stat_bin() + 
    geom_text(data = labs, aes(x = species, y = value, 
           label = value, vjust = -0.5)) + 
    facet_wrap(~ lvl) 


R> suppressWarnings(print(plt)) 
R> 

davranışın nedeni arsa aslında arsa temsil nesne oluşturulduğunda değilken, çizildiğinde uyarılar yalnızca üretilen olmasıdır. R aslında, sen print(suppressWarnings(plt)) aradığınız, çünkü

R> suppressWarnings(plt) 
Warning message: 
Removed 1 rows containing missing values (geom_text). 

iken suppressWarnings() kaynaklanan uyarıları çalışma yakalayabilir çünkü

R> suppressWarnings(print(plt)) 
R> 

oysa çalışmıyor bu yüzden, interaktif kullanım sırasında otomatik baskı olacak print() çağrı. Sorunuza olarak

Answer 3

, rapor yazma söz, nedenle küresel ısınma seviyesini ayarlamak için daha iyi olabilir:

options(warn=-1) 

varsayılan:

options(warn=0)