Создание меток X-оси в R более гранулированных

Question

Я создаю график и R и хотел бы, чтобы ось x была более зернистой.

Tenure   Type Visits Members Percent 
1  0  Basic 122446 283975 0.4311858 
2  0  Premium 21190 44392 0.4773383 
3  1  Basic 92233 283975 0.3247927 
4  1  Premium 17909 44392 0.4034285 
5  2  Basic 42516 283975 0.1497174 
6  2  Premium 9613 44392 0.2165480 


plot(Visit_Curve$Tenure, Visit_Curve$Percent, type = "n", main = "Visit Curve") 
    lines(Visit_Curve$Tenure[Visit_Curve$Type == "Basic"], Visit_Curve$Percent[Visit_Curve$Type == "Basic"], col = "red") 
    lines(Visit_Curve$Tenure[Visit_Curve$Type == "Premium"], Visit_Curve$Percent[Visit_Curve$Type == "Premium"], col = "blue") 

Код выше создает диаграмму, которая имеет ось х с разбивкой по факторам 50. Существует ли способ легко настроить масштаб в базе R черчения? Возможно, есть галочка каждые 10 или 5?

Спасибо, Бен

Answer 1

Просто сделайте заказ осей с axes = FALSE и ?axis

Вы можете очистить свой код по существу:

Visit_Curve <- read.table(header = TRUE, text = "Tenure   Type Visits Members Percent 
1  0  Basic 122446 283975 0.4311858 
2  0  Premium 21190 44392 0.4773383 
3  1  Basic 92233 283975 0.3247927 
4  1  Premium 17909 44392 0.4034285 
5  2  Basic 42516 283975 0.1497174 
6  2  Premium 9613 44392 0.2165480") 

with(Visit_Curve, { 
    plot(Tenure, Percent, type = 'n', main = 'Visit Curve', axes = FALSE) 
    axis(1, at = seq(0, 2, by = .15)) 
    axis(2, at = seq(.15, .45, by = .05), las = 1) 
    box('plot') 
    lines(Tenure[Type == 'Basic'], Percent[Type == 'Basic'], col = 'red') 
    lines(Tenure[Type == 'Premium'], Percent[Type == 'Premium'], col = 'blue') 
}) 

или индивидуально подавлять метки на каждой оси с xaxt = 'n' или yaxt = 'n'

with(Visit_Curve, { 
    plot(Tenure, Percent, type = 'n', main = 'Visit Curve', xaxt = 'n', las = 1) 
    axis(1, at = seq(0, 2, by = .15)) 
    lines(Tenure[Type == 'Basic'], Percent[Type == 'Basic'], col = 'red') 
    lines(Tenure[Type == 'Premium'], Percent[Type == 'Premium'], col = 'blue') 
}) 

Или с помощью ggplot2

library('ggplot2') 
ggplot(Visit_Curve, aes(Tenure, Percent, colour = Type)) + 
    geom_line() + 
    scale_x_continuous(breaks = seq(0, 2, .15)) + 
    labs(title = 'Visit Curve')