facet_wrap causing NA values

The upper tile in the following example is changed by ggplotly. I assume it is grey because it is somehow NA. Only occurs when faceting is used.

test <- structure(list(week = c(7L, 7L, 32L), day = structure(c(5L, 6L, 
1L), .Label = c("Mon", "Tues", "Wed", "Thurs", "Fri", "Sat", 
"Sun"), class = c("ordered", "factor")), year = c(2017, 2017, 
2015), `Samples #` = c(31L, 49L, 20L)), class = c("tbl_df", "tbl", 
"data.frame"), row.names = c(NA, -3L), .Names = c("week", "day", 
"year", "Samples #"))

p <- ggplot(data = test, aes(x = day, y = week, fill = `Samples #`, height = 1)) +
geom_tile() +
facet_wrap(~year, ncol = 1) 

p

ggplotly(p)

まず、提供された R の再現コードを ggplot、geom_tile、facet_wrap、ggplotly(p) とともに実行し、次にファセット化された出力を元のプロットと比較します。ファセットを使用したときに、上側のタイルが灰色や NA になるのではなく、正しい値と外観を保持していれば完了です。