вращать метки мозаичного сюжета

Question

Может быть, кто-нибудь знает, как вращать метки на мозаичном графике - см., Например, этот код:

employee <- read.csv("Products.csv", TRUE, sep = ",",
                     na.strings = TRUE)

count <- table(employee$EnglishCountryRegionName, 
               employee$Color)
count
mosaicplot(count)

взято из здесь . Используя ggplot, я бы обычно использовал:

theme(axis.text.x  = element_text(angle=45, vjust=0.5))

Answer 1

Вы можете играть с параметром las, но он имеет только 4 варианта (см. help("par")):

count <- table(mtcars$cyl, 
               mtcars$gear)
dimnames(count)[[1]] <- c("aaa", "bbb", "ccc")
dimnames(count)[[2]] <- c("ddd", "eee", "fff")
count
#     ddd eee fff
# aaa   1   8   2
# bbb   2   4   1
# ccc  12   0   2

mosaicplot(count, las=2)