Блог

Я использую базовую диаграмму R. Мне нужно подмножество для двух столбцов, в котором один, где gender = Женский, а другой, где Measure.Variables = Ожидаемая продолжительность жизни. Поскольку столбец Measure.Variables имеет два значения «Ожидаемая продолжительность жизни» и «Смертность».

Более того, я пытаюсь вручную установить разрывы и ограничения для осей y и x, но я не могу этого сделать. Я прикрепил картинку с разрывами и ограничениями, которые я хочу добавить.

Не могли бы вы также помочь мне с этим. Я хочу установить разрывы для оси y в breaks = c (30,40,50,60,70,80), а для оси x как breaks = c (1900,1920,1940,1960,1980,2000). Я хочу, чтобы эти ограничения отображались независимо от того, доступны ли данные.

Я использую следующий код, и он выдает ошибку, когда я добавляю второе условие в оператор subset. В противном случае он отлично работает без команды Measure.Variables==Ожидаемая продолжительность жизни.

Ниже приведен вывод данных

 structure(list(Measure.Variables = c("Life Expectancy", "Life Expectancy", 
"Life Expectancy", "Mortality", "Life Expectancy", "Life Expectancy"
), Race = c("All Races", "All Races", "All Races", "All Races", 
"All Races", "All Races"), Sex = c("Both Sexes", "Both Sexes", 
"Both Sexes", "Both Sexes", "Both Sexes", "Both Sexes"), Year = 1900:1905, 
    Average.Life.Expectancy = c(47.3, 49.1, 51.5, 50.5, 47.6, 
    48.7), Mortality = c(NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_)), row.names = c(NA, 6L), class = "data.frame")
 

Я использую следующий код

 with(subset(LF, Sex == "Male", Measure.Variables == "Life Expectancy"), 
     plot(Year, Average.Life.Expectancy, col="red", pch=17,
          main="Male Life Expectancy", ylab="Life Expectancy"))
 

Отредактировано в ответ на Adele, значения y по-прежнему не отображаются. пожалуйста, посмотрите на этот графический график после предложения Адель

Будет неплохо добавить некоторые аргументы в ваш код, а затем использовать axis() :

 with(subset(LF, Sex == "Male", Measure.Variables == "Life Expectancy"), 
     plot(LF$Year, LF$Average.Life.Expectancy, col="red", pch=17,
          main="Male Life Expectancy", ylab="Life Expectancy"
          ,xlim = c(1900, 2000), ylim = c(30, 80)
          , xaxt='n', yaxt='n'
          )
     )

axis(1, at = seq(1900, 2000, by=20), las = 2)
axis(2, at = seq(30, 80, by=10))
 

Проще data= просмотреть аргумент и разделить выделение с amp; помощью in subset . Для настройки оси отключите тексты оси с помощью xaxt='n' и yaxt='n' и создайте свой собственный с axis() помощью .

 plot(Year ~ Average.Life.Expectancy,
     data=subset(dat, Sex == "Both Sexes" amp; Measure.Variables == "Life Expectancy"),
     col="red", pch=17, 
     main="Male Life Expectancy", ylab="Life Expectancy", xaxt='n', yaxt='n')
axis(1, at=c(48,50,52))
axis(2, at=c(1900, 1902, 1904))
 

Обратите внимание, что я использовал "Both Sexes" здесь, поскольку "Male" он не был включен в ваши примерные данные.

Кроме того, я использовал 40, 50, 52 и 1900, 1902, 1904 для демонстрации настроек оси.

В вашем случае я бы попробовал

 axis(1, at=3:8*10)
axis(2, at=seq(1900, 2000, 20))