Stephen Clark's questions

Esta pergunta é uma continuação desta ( Mensagem de aviso: 2 linhas contendo valores ausentes foram removidas (`geom_tile()`) ). Alguns dias são fins de semana e gostaria de comunicar isso no gráfico. No momento, codifiquei os valores de fim de semana com um número negativo e alterei a escala para que aparecessem em azul. Não tenho certeza se é isso que eu quero. O ideal seria que os fins de semana tivessem o mesmo valor positivo, mas talvez um texto com uma cor diferente (branco em vez de preto) e/ou uma borda ao redor do bloco. Tenho uma coluna booleana que me informa se são fins de semana. Talvez haja uma visualização melhor que possa identificar os dias de fim de semana?

hours <- c(16, 17, 0, 1, 2, 21, 22, 9, 19, 20)
days <- c(0, 0, 3, 3, 3, 6, 6, 11, 21, 21)
value <- c(3, 60, -18, -60, -23, 51, 48, 49, 47, 40)
weekend<- c(FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE)

df <- data.frame(hours, days, value, weekend)

h<-1
w<-1

ggplot(df, aes(days, hours)) +
  geom_tile(aes(fill = value, width = w, height = h)) +
  geom_text(aes(label = value), size = 3) +
  scale_fill_continuous(limits=c(-60,60),breaks=seq(-60,60,20),low = "blue", high = "red") +
  xlab("Day") +
  ylab("Hour") +
  scale_x_continuous(
    breaks = seq(0, 41, by = 7),
    expand = c(0.05, 0.05)
  ) +
  scale_y_continuous(
    breaks = seq(0, 23, by = 3),
    expand = c(0.05, 0.05)
  ) +
  coord_cartesian(xlim=c(0,41),ylim=c(0,23))

Responder:

hours <- c(16, 17, 0, 1, 2, 21, 22, 9, 19, 20)
days <- c(0, 0, 3, 3, 3, 6, 6, 11, 21, 21)
value <- c(3, 60, 18, 60, 23, 51, 48, 49, 47, 40)
weekend<- c("black","black","white","white","white","black","black","black","black","black")

df <- data.frame(hours, days, value, weekend)

h<-1
w<-1

ggplot(df, aes(days, hours)) +
    geom_tile(aes(fill = value, width = w, height = h)) +
    geom_text(aes(label = value), size = 4, colour=weekend) +
    scale_fill_continuous(limits=c(0,60),breaks=seq(-0,60,10),low = "white", high = "red") +
    xlab("Day") +
    ylab("Hour") +
    scale_x_continuous(
        breaks = seq(0, 41, by = 7),
        expand = c(0.05, 0.05)
    ) +
    scale_y_continuous(
       breaks = seq(0, 23, by = 3),
       expand = c(0.05, 0.05)
    ) +
    coord_cartesian(xlim=c(0,41),ylim=c(0,23))

Quero produzir um mapa de calor de valores por dias (0 a 41 = 6 semanas) por horas do dia (0 a 23).

O primeiro exemplo abaixo funciona bem, mas o segundo produz um erro

Warning message: Removed 2 rows containing missing values (`geom_tile()`).

A mensagem de erro é estranha porque não há valores ausentes explícitos nos meus dados. Além disso, o gráfico mostra uma fusão de dias consecutivos!

Preciso definir os intervalos para que os eixos se alinhem com sete dias e três horas no dia. Defini os limites para que eu sempre tenha seis semanas e 24 horas completas. Já tive esse mesmo erro antes e pensei que o resolveria expandindo os limites de 0:23 e 0:41 para -1:24 e -1:42, o que ajudou em alguns casos (não entendo por que precisei fazer isso). Obrigado.

library(ggplot2)

hours<-c(8,9,1,12,8,9,8,9,8)
days<-c(0,0,1,1,14,14,40,40,41)
value<-c(47,11,46,11,48,12,57,3,47)
df<-data.frame(cbind(hours,days,value))

ggplot(df,aes(days,hours))+
  geom_tile(fill=value)+
  geom_text(aes(label=value),size=3)+
  scale_fill_gradient(low="white",high="red")+
  xlab("Day")+
  ylab("Hour")+
  scale_x_continuous(breaks=seq(0,41,by=7),limits=c(-1,42))+
  scale_y_continuous(breaks=seq(0,23,by=3),limits=c(-1,24))

hours<-c(16,17,0,1,2,21,22,9,19,20)
days<-c(0,0,3,3,3,6,6,11,21,21)
value<-c(3,60,18,60,23,51,48,49,47,40)
df<-data.frame(cbind(hours,days,value))

ggplot(df,aes(days,hours))+
  geom_tile(fill=value)+
  geom_text(aes(label=value),size=3)+
  scale_fill_gradient(low="white",high="red")+
  xlab("Day")+
  ylab("Hour")+
  scale_x_continuous(breaks=seq(0,41,by=7),limits=c(-1,42))+
  scale_y_continuous(breaks=seq(0,23,by=3),limits=c(-1,24))

EDITAR

Agradeço ao PBulls pela sugestão de ampliar ainda mais os limites. No entanto, ainda vejo uma caixa de calor mais ampla do que o esperado: minha produção é diferente da deles.