Preciso gerar um gráfico de barras com os seguintes dados:
structure(c(38792L, 1227L, 23220L, 4177L, 893L, 331L), .Dim = 6L, .Dimnames = structure(list(c("Canvas para Android", "Canvas para iOS", "Chrome ", "Firefox ", "Navegador não reconhecido", "Safari ")), .Names = ""), class = "table")
Preciso agrupar as barras de "Canvas para Android" e "Canvas para iOS", logo abaixo delas devo colocar um rótulo "Dispositivo Mobile" e também precisarei agrupar as demais barras adicionando um logo "Computador".
Fiz o gráfico da seguinte forma:
AgUsuPlot<- barplot(table(AgenteDoUsuario[,1]),
main = "Distribuição de Frequência do Agente do Usuário",
ylim = c(0,45000),
xlab="Agente do Usuário",
col = c("palegreen", "green", "orange", "darkred", "red", "darkblue"),
ylab="Exibições de Páginas",
legend = rownames(table(AgenteDoUsuario[,1])),
cex.axis = 0.6,
cex.names = 0.6,
space = 0.5,
las=1
)
text(x=AgUsuPlot, y=table(AgenteDoUsuario[,1]), label=table(AgenteDoUsuario[,1]), pos = 3, xpd=NA)
Gostaria de saber como posso diminuir a legenda, pois ela está ficando em cima de uma das barras.