Маркировка легенды в ggplot2 и ggfortify в R

Question

Я построил график и хочу настроить легенду этого сюжета. Я буду признателен за любую помощь в этом. Спасибо!

library("survival")
library("ggplot2")
library("ggfortify")

data(lung)
lung$SurvObj <- with(lung, Surv(time, status == 2))
km.by.sex <- survfit(SurvObj ~ sex, data = lung, conf.type = "log-log")

gender.plot <- autoplot(km.by.sex)
gender.plot <- gender.plot + 
  ggtitle("Gender based Survival (1=male, 2=female)") +
  labs(x = "Time", y = "Survival Probability") 
print(gender.plot)

Answer 1

У меня была похожая проблема с настройкой графика ggfortify - я не совсем уверен, что задает этот вопрос, но я собираюсь предположить, что вы хотите настроить легенду из ggfortify"s autoplot, Чтобы быстро ответить на это - autoplot можно манипулировать с помощью типичного ggplot функции для настройки, потому что это ggplot объект. Это должен быть метод для изменения легенды, autoplot нет собственной библиотеки для этого. Смотрите этот закрытый вопрос для получения дополнительной информации.

Я немного отредактировал ваш вопрос, чтобы он содержал воспроизводимый код, используя пример анализа выживания, найденный здесь. Пример настройки сюжета (переименование легенды и цветовых меток):

gender.plot <- autoplot(km.by.sex)
gender.plot <- gender.plot + 
  ggtitle("Gender based Survival") +
  labs(x = "Time", y = "Survival Probability") +
  guides(fill=FALSE) +
  labs(colour = "Gender") +
  scale_color_manual(labels = c("Male", "Female"), values = c(1, 2))
print(gender.plot)