¿Por qué este facet_grid no elimina columnas?

Hola tengo este conjunto de datos: tdat=structure(list(Condition = structure(c(1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L), .Label = c("AS", "Dup", "MCH"), class = "factor"), ...

Brillante no muestra mi ggplot como esperaría

PCA Scaling con ggbiplot

Configuración de límites de ejes individuales con facet_wrap y escalas = "libre" en ggplot2

Rotar etiqueta de faceta y eje x con ggplot2

Agregar leyenda a ggplot cuando las líneas se agregaron manualmente

Tengo problemas para agregar un shapefile a mi ggmap debido a las diferentes unidades geográficas

Añadir nuevo elemento a la leyenda ggplot2

Estoy imprimiendo el índice de Case-Shiller en un gráfico:

¿Hay alguna manera de agregar una barra de escala (para distancias lineales) a ggmap?

No es que sea crítico para mi pregunta, pero aquí está mi ejemplo de trama, sobre la cual me gustaría agregar una barra de escala.

La diferencia entre geomensidad en ggplot2 y densidad en base R

Tengo un dato en R como el siguiente: