Как добавить произвольный вектор даты в график?

У меня есть вектор даты под названием prod.dat.ordered.distinct1, который выглядит так:

prod.dat.ordered.distinct1 <- c("2012-07", "2012-08", "2012-09", "2012-10", "2012-11", "2012-12", 
"2013-01", "2013-02", "2013-03", "2013-04", "2013-05", "2013-06", 
"2013-07", "2013-08", "2013-09", "2013-10", "2013-11", "2013-12"
)

Теперь на моем графике я получаю по оси Y числа от 1 до 18 вместо моего вектора prod.dat.ordered.distinct1 ... Какие изменения мне нужно внести, чтобы значения даты отображались на оси Y? Вот мой код:

mydatal <- testdatensatz[testdatensatzSbaureihe == "F10",] 
prod.dat1 <- as.Date(mydata1$produktionsdatumf2, format = "%Y-%m-%d")
prod.dat1 <- format(prod.dat1, format = "%Y-%m") 
befund1 <- mydata1$befundnummer 
prod.dat.befund1 <- data.frame(p = prod.dat1, b = befund1) 

prod.dat.befund.ordered1 <- prod.dat.befund1[order(prod.dat.befund1$p), ]

prod.dat.ordered.distinct1 <- prod.dat.befund.ordered1$p[!duplicated(prod.dat.befund.ordered1$p)]

t1 <- as.data.frame(table(prod.dat.befund1))
matt = matrix(nrow = length(prod.dat.ordered.distinctl), ncol = 2) 
Produktionsdatum <- c() 
relativeHaufigkeit <- c() 
for (i in 1:length(prod.dat.ordered.distinct1)) 
{ 
  tl.date <- tl[t1$p == prod.dat.ordered.distinct1[i], ] 
  number.ref1 <- tl.date[tl.date$b == 0, 3] 
  number.faults1 <- sum(t1.date[as.numeric(t1.date$b) > 1, 3]) 
  Produktionsdatum[i] <- prod.dat.ordered.distinctl[i]
  relativeHaufigkeit[i]<- round((number.faults1 / number.refl)  * 100, digits = 0) 
}

df1 <- data.frame(Produktionsdatum, relativeHaufigkeit) 
df1$gr <- df1$Produktionsdatum %in% r 
ggplot(df1, aes(x=Produktionsdatum,y=relativeHaufigkeit, color=gr)) +
  geom_vline(xintercept=r1, alpha=0.5) + 
  geom_point()

Уважаемый rayray, добро пожаловать в SO! Могли бы вы размещать не изображения кода, а текст самого кода. Это довольно утомительно для людей, которые попытаются помочь вам повторно ввести данные, чтобы проверить ваш код. Вероятность ответа сильно снижена.

— 15.09.2018 11:58

r date ggplot2 axis-labels

29.08.2018 09:59

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Проблема связана с

Produktionsdatum[i] <- prod.dat.ordered.distinct1[i]

Он преобразует множители в целые числа. Если обернуть его в функцию as.character, то даты будут указаны на оси абсцисс. Более того, если вы хотите использовать geom_vline, вам нужно использовать отдельную эстетику.

Пожалуйста, посмотрите код ниже:

prod.dat.ordered.distinct1 <- c("2012-07", "2012-08", "2012-09", "2012-10", "2012-11", "2012-12", 
                                "2013-01", "2013-02", "2013-03", "2013-04", "2013-05", "2013-06", 
                                "2013-07", "2013-08", "2013-09", "2013-10", "2013-11", "2013-12"
)

testdatensatz <- data.frame(baureihe = "F10",
                          produktionsdatumf2 = c("2012-08-02", "2012-08-03", "2012-09-01", "2012-10-05"),
                          befundnummer = c(1, 0, 2, 1))

relativeHaufigkeit <- c(1, 2, 3, 1)
t1 <- data.frame(p = factor("2012-07", "2012-08", "2012-09", "2012-10"), b = 0)



mydata1 <- testdatensatz[testdatensatz$baureihe == "F10",] 

prod.dat1 <- as.Date(mydata1$produktionsdatumf2, format = "%Y-%m-%d")
prod.dat1 <- format(prod.dat1, format = "%Y-%m") 
befund1 <- mydata1$befundnummer 
prod.dat.befund1 <- data.frame(p = prod.dat1, b = befund1) 

prod.dat.befund.ordered1 <- prod.dat.befund1[order(prod.dat.befund1$p), ]

prod.dat.ordered.distinct1 <- prod.dat.befund.ordered1$p[!duplicated(prod.dat.befund.ordered1$p)]

t1 <- as.data.frame(table(prod.dat.befund1))
matt = matrix(nrow = length(prod.dat.ordered.distinct1), ncol = 2) 
Produktionsdatum <- c() 
relativeHaufigkeit <- c() 

for (i in 1:length(prod.dat.ordered.distinct1)) { 
  t1.date <- t1[t1$p == prod.dat.ordered.distinct1[i], , drop = FALSE] 
  # number.ref1 <- t1.date[t1.date$b == 0, 3] 
  number.ref1 <- t1.date[t1.date$b == 0, 3] 
  number.faults1 <- sum(t1.date[as.numeric(t1.date$b) > 1, 3]) 
  Produktionsdatum[i] <- as.character(prod.dat.ordered.distinct1[i]) #
  relativeHaufigkeit[i]<- round((number.faults1 / number.ref1)  * 100, digits = 0) 
}


df1 <- data.frame(Produktionsdatum, relativeHaufigkeit, gr = sample(1:2, length(Produktionsdatum), replace = TRUE)) 

ggplot(df1, aes(x = Produktionsdatum, y = relativeHaufigkeit, color = gr)) +
  geom_line() +
  geom_vline(aes(xintercept = 1, alpha=0.5)) + 
  geom_point()

Выход:

plotted