Проблемы с добавлением стрелок в гистограмму - PullRequest
0 голосов
/ 03 февраля 2019

Я пытаюсь добавить стрелки (столбцы ошибок) к простому гистограмме.Первый работает, а последние два просто вызывают множество сообщений об ошибках, даже если они отформатированы одинаково!

secondtimes<-c(568.4667,604.2,585.8)
xabels<-c("1","2","3")
secondplot<-barplot(secondtimes,xlab = "Treatment",ylab = "Time taken / secs",ylim = c(0,800))
axis(1,at=secondplot,labels=xabels)  
arrows(0.7, 522.3074, 0.7, 614.6259, length=0.05, angle=90, code=3)
arrows(1.9, 496.4951, 1.9, 496.4951, length=0.05, angle=90, code=3)
arrows(3.1, 482,3277,3.1, 689.2723, length=0.05, angle=90, code=3)

Ошибка в стрелках (1.9, 496.4951, 1.9, 496.4951, длина = 0.5, угол = 90,: неверная спецификация наконечника стрелы. Дополнительно: Предупреждающие сообщения: 1: In doTryCatch (return (expr),name, parentenv, handler): стрелка нулевой длины имеет неопределенный угол и поэтому пропущена 2: в doTryCatch (return (expr), name, parentenv, handler): стрелка нулевой длины имеет неопределенный угол и поэтому пропущена 3: в doTryCatch(return (expr), name, parentenv, handler): стрелка нулевой длины имеет неопределенный угол и поэтому пропускается 4: В doTryCatch (return (expr), name, parentenv, handler): стрелка нулевой длины имеет неопределенный угол итак пропущено

This is how the plot turns out

1 Ответ

0 голосов
/ 03 февраля 2019

Исправлено ...

secondtimes<-c(568.4667,604.2,585.8)
xabels<-c("1","2","3")
secondplot<-barplot(secondtimes,xlab = "Treatment",ylab = "Time taken / secs",ylim = c(0,800))
axis(1,at=secondplot,labels=xabels)  
arrows(0.7, 522.3074, 0.7, 614.6259, length=0.05, angle=90, code=3)
arrows(1.9, 496.4951, 1.9, 711.9049, length=0.05, angle=90, code=3)
arrows(3.1, 482.3277,3.1, 689.2723, length=0.05, angle=90, code=3)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...