недостающий участок ggplot с коэффициентом оси x

Question

Следующее работает нормально:

my_df <- data.frame(x_val = 1:10, y_val = sample(1:20,10), 
            labels = sample(c("a", "b"), 10, replace = T))
ggplot(data = my_df, aes(x = x_val, y = y_val)) + geom_line()

, но если я получу шанс x_val к фактору, я получаю пустой график и сообщение:

my_df <- data.frame(x_val = 1:10, y_val = sample(1:20,10), 
          labels = sample(c("a", "b"), 10, replace = T))
my_df$x_val <- as.factor(my_df$x_val)
ggplot(data = my_df, aes(x = x_val, y = y_val)) + geom_line()

сообщение:

geom_path: Each group consists of only one observation. Do you
need to adjust the group aesthetic?

Я, очевидно, могу отбросить преобразование factor, но оно мне нужно, чтобы заменить метки оси x на scale_x_discrete(breaks = 1:10,labels= my_df$labels). Вот где я его позаимствовал ссылка

Есть мысли?

Answer 1

Можете ли вы просто оставить x_val в качестве цифры c и использовать вместо него scale_x_continuous(breaks = 1:10,labels= my_df$labels)?