Скрипт выдает ось Y, но не ось X

Question

Я пытаюсь построить некоторые данные в R как простой линейный график (без точек, просто линия, соединяющая все невидимые точки).

Мой сценарий создает ось Y, но неОсь X, и я изо всех сил пытаюсь это исправить, любая помощь будет принята с благодарностью.

Я пытался изменить xlim на разные вещи, добавил опцию at и поиграл с шириной и высотой, нокажется, что это не работает.

head(Truncmelt)
x <- Truncmelt [ ,1]
y <- Truncmelt [ ,2]
pdf(file = "Trunc.pdf", width = 25, height=7)
par(pch="0", col="white")
plot(y~x,  axes=FALSE, xlab = "Temperature", ylab = "CD")
axis(side=1, pos=-2, col="black", xlim=c(0,120))
axis(side=2, pos=0, col="black", at=-10:-20, ylim=c(10, 20))
lines(Truncmelt, col=("navy"))
box()
dev.off()

В идеале я бы хотел, чтобы на графике была показана ось X от 0 до 120, хотя данные работают только от 5 до 105 или около того, но ось Xникогда не бывает.

Любая помощь с благодарностью,

Спасибо

РЕДАКТИРОВАТЬ: Данные включены ниже.

Truncmelt <- data.frame(
  x = c(5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
    17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 
    33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 
    49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 
    65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 
    81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95), 
  y = c(-12.4746, -12.5204, -12.5568, -12.8401, -12.585, -12.4484, 
    -12.1627, -12.4615, -12.3552, -12.7149, -12.6364, -12.2196, 
    -12.522, -12.5598, -12.6754, -12.5928, -12.3858, -12.8337, 
    -12.6562, -12.3757, -12.8435, -12.4136, -12.0363, -12.2963, 
    -12.5877, -12.2896, -12.1768, -12.2008, -12.2833, -12.1877, 
    -12.4883, -12.3077, -12.3134, -12.4816, -12.4651, -12.1372, 
    -12.5118, -12.1978, -12.2705, -12.3102, -11.9542, -11.8043, 
    -11.8192, -12.0839, -12.1434, -12.1661, -12.4645, -11.9337, 
    -11.9082, -11.6538, -12.0029, -11.9409, -12.203, -12.3232, 
    -11.9424, -12.1346, -11.9764, -11.6948, -12.1155, -12.2699, 
    -12.1826, -13.2273, -13.3182, -13.4455, -13.8004, -14.0562, 
    -14.1941, -14.5309, -14.394, -14.5556, -14.2982, -15.0219, 
    -15.319, -15.2574, -15.1451, -15.3356, -15.2799, -15.1584, 
    -15.3621, -15.1119, -15.2132, -15.3842, -15.2658, -14.9957, 
    -15.4742, -15.6432, -15.723, -15.3589, -15.598, -15.7019, 
    -15.5602))

Answer 1

Я не уверен, что вы пытались сделать с параметром pos=, но значение -2 приводит к тому, что ось не рисуется. И параметры xlim= и ylim= должны быть переданы в plot().

plot(y~x, axes=FALSE, xlab = "Temperature", ylab = "CD", 
     xlim=c(0,120), ylim=c(-10, -20))
axis(side=1, col="black")
axis(side=2, col="black")