Как я могу напечатать ВСЕ этикетки на оси х в R?

Question

Пожалуйста, поймите, что это не серьезное упражнение или какой-либо исследовательский проект, и я бы попросил, чтобы контекст был оставлен в стороне как ane

Проблема в том, что, когда я пытаюсь отобразить значения в столбце В отличие от названий стран, некоторые из них исключены из оси X, и я не знаю почему.

Вот данные .

И это это код:

require(RCurl)
require(foreign)
require(tidyverse) 
x = getURL("https://raw.githubusercontent.com/RInterested/PLOTS/master/drinks_csv.csv")

data <- read.csv(textConnection(x))
data <- data[,c(1:5,8)]
plot(data$country,data$cases,las=2, xlab="", ylab="")

Как напечатать разные альтернативные страны или все из них по оси x?

Answer 1

Ну, есть 169 стран, поэтому они должны быть довольно маленькими, чтобы напечатать их все.

plot(data$country,data$cases,las=2, xlab="", ylab="", xaxt = 'n')
axis(1, at = 1:length(data$country), labels = data$country, cex.axis = 0.1, las = 2)

Мы можем выбрать, для каких стран наносить отметки по оси x, найдя их индексы в строках data$country, а затем используя axis, чтобы построить эти выбранные страны.

my.countries <- match(c("poland","japan","togo", "belarus"),data$country)
plot(data$country,data$cases,las=2, xlab="", ylab="", xaxt = 'n')
axis(1, at = my.countries, labels = data$country[my.countries], las = 2)