## The likert function would work well for this example.
## Continuing from your example
## install.packages("HH") ## if necessary
library(HH)
likert(Family ~ Normal+Tumour+Metastasis, data = df,
main = "likert, data-order, ReferenceZero=0\nDuplicates your example",
ReferenceZero=0,
as.table=FALSE,
xlab = expression(bold("Number of species")),
ylab = expression(bold("Families")),
auto.key = list(space = "top", columns=3),
col = COLS)
likert(Family ~ Normal+Tumour+Metastasis, data = df,
main = "likert, positive.order=TRUE, ReferenceZero=0\nThis is
what you asked for",
positive.order=TRUE,
ReferenceZero=0,
xlab = expression(bold("Number of species")),
ylab = expression(bold("Families")),
auto.key = list(space = "top", columns=3),
col = COLS)
likert(Family ~ Normal+Tumour+Metastasis, data = df,
main = "likert, positive.order=TRUE, ReferenceZero=1.5\nThis
puts Normal on left and not-Normal on right",
positive.order=TRUE,
ReferenceZero=1.5,
xlab = expression(bold("Number of species")),
ylab = expression(bold("Families")),
auto.key = list(space = "top", columns=3),
col = COLS)
## For information on the likert function
?likert
## For more examples
demo("likert-paper", package="HH")
## for the paper, open
http://www.jstatsoft.org/v57/i05/
## and click on
## Download PDF
On Mon, Nov 4, 2019 at 8:32 AM Luigi Marongiu <marongiu.lu...@gmail.com> wrote:
>
> Dear all,
> I am plotting some values with lattice barchart: the y-axis is
> automatically ordered alphabetically; is it possible to order the
> entries by number, so that the 'larger' histograms would be at the top
> of the plot?
> This is a working example
>
> ```
> library(lattice)
> Family = c("Adenoviridae", "Baculoviridae", "Herpesviridae", "Mimiviridae",
> "Myoviridae", "Pandoraviridae", "Phycodnaviridae", "Podoviridae",
> "Polydnaviridae", "Retroviridae", "Siphoviridae", "Unassigned")
> Normal = c(7, 15, 24, 8, 65, 24, 17, 16, 8, 15, 49 , 9)
> Tumour =c( 17, 75, 94, 14, 242, 28, 41, 69, 12, 11, 305, 51)
> Metastasis =c(41, 66, 95, 3, 173, 22, 33, 101, 12, 12, 552, 57)
> df = data.frame(Family, Normal, Tumour, Metastasis, stringsAsFactors = FALSE)
> COLS = c("darkolivegreen3", "brown3", "darkorchid3")
> barchart(Family ~ Normal+Tumour+Metastasis, data = df, stack = TRUE,
> xlim=c(1,1000),
> main = "Alphabetical order",
> xlab = expression(bold("Number of species")),
> ylab = expression(bold("Families")),
> auto.key = list(space = "top", columns=3),
> par.settings = list(superpose.polygon = list(col = COLS)))
> ```
>
>
> --
> Best regards,
> Luigi
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
