улучшение качества калибровочных графиков

Question

Я применил несколько методов калибровки. Я генерировать калибровочные графики следующим образом (фиктивный код):

require("caret") 
x <- exp(rnorm(1000))/sum(exp(rnorm(1000))) # "calibrated prediction" 
target <- rep(0:1, 1000) 

df <- data.frame(target, x) 
names(df) <- c("target", "prediction") 
df$target <- as.factor(df$target) 

cali_plot <- calibration(
    as.formula(paste("target ~ ", paste(c("x"), sep = ":", collapse =" + "), sep = "")), 
    data = df, cut = 10 
) # in ten bins 

xyplot(cali_plot, auto.key = list(columns = 2)) 
jpeg(file = "somewhere/method_1/...", bg = "transparent", width = 400, height = 350) 
xyplot(cali_plot, auto.key = list(columns = 2)) 
dev.off() 

Моя проблема (не обращайте внимание на график, это просто воспроизводим пример), что качество JPG действительно бедных.

Чтобы изменить его, я пытаюсь использовать пакет ggplot следующим образом:

ggplot(file = "somewhere/method_1/...", bg = "transparent", width = 400, height = 350) 

И получите ошибку. Я просто пытаюсь улучшить качество. Не могли бы вы дать мне несколько советов?

Answer 1

Ваша проблема в формате jpeg. Формат jpeg является «потерянным», то есть он сохраняет всю информацию о цвете, но сжимает размер файла, выборочно отбрасывая данные, и это сжатие может привести к потере качества. Вы можете уменьшить объем сжатия, увеличив аргумент качества, но формат jpg действительно не подходит для изображений, содержащих текст. не

Если формат JPEG имеет решающее значение для вас, вы должны использовать вектор на основе формата, такие как PDF

pdf(file = "somewhere/method_1/...") 
xyplot(cali_plot, auto.key = list(columns = 2)) 
dev.off()