[R] ggplot pointrange from other df and missing legend
PIKAL Petr
petr@p|k@| @end|ng |rom prechez@@cz
Mon May 16 13:45:05 CEST 2022
Hi.
I noticed missing tablePal which was originally set to
palette("Tableau 10")
tablePal <- palette()
So now both codes should work however missing legend still persists
library(ggplot2)
p <- ggplot(test, aes(x=Sample, y=value, fill=SSAtype))
p+geom_col(position="dodge")+geom_point(aes(y=SSAmeasuredP, shape=identity),
size=5)+
scale_fill_manual(values=tablePal, name="Calculation\n performed\n according
to",
labels=c("bla", "blabla"))+
guides(fill= guide_legend(override.aes = list(shape=NA)))+
scale_shape_manual(name = "Measured", values=19, labels=NULL)
ggplot()+
geom_col(data=test, aes(x=Sample, y=value, fill=SSAtype), position="dodge")+
scale_fill_manual(values=tablePal, name="Calculation\n performed\n according
to",
labels=c("bla", "blabla"))+
geom_pointrange(data=test.ag, aes(x=Sample, y=avg, ymin=avg-odch,
ymax=avg+odch)) +
guides(fill= guide_legend(override.aes = list(shape=NA)))+
scale_shape_manual(name = "Measured", values=19, labels=NULL)
Best regards
Petr
> -----Original Message-----
> From: R-help <r-help-bounces using r-project.org> On Behalf Of PIKAL Petr
> Sent: Monday, May 16, 2022 1:16 PM
> To: r-help using r-project.org
> Subject: [R] ggplot pointrange from other df and missing legend
>
> Hallo all
>
>
>
> Here are the data from dput
>
>
>
> test <- structure(list(Sample = c("A", "A", "A", "A", "A", "A", "B",
>
> "B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "C"), SSAtype = c("one",
>
> "one", "one", "two", "two", "two", "one", "one", "one", "two",
>
> "two", "two", "one", "one", "one", "two", "two", "two"), value =
> c(8.587645149,
>
> 8.743793651, 8.326440422, 9.255940687, 8.971931555, 8.856323865,
>
> 9.650809096, 9.725504448, 9.634449367, 9.69485369, 9.526758476,
>
> 10.03758001, 10.76845392, 10.66891602, 10.34894497, 10.76284989,
>
> 10.53074081, 11.16464528), SSAmeasuredP = c(8.3, 8.3, 8.3, 8.3,
>
> 8.3, 8.3, 9.5, 9.5, 9.5, 9.5, 9.5, 9.5, 11, 11, 11, 11, 11, 11
>
> ), identity = c("point", "point", "point", "point", "point",
>
> "point", "point", "point", "point", "point", "point", "point",
>
> "point", "point", "point", "point", "point", "point")), row.names = c(NA,
>
> 18L), class = "data.frame")
>
>
>
> test.ag <- structure(list(Sample = c("A", "B", "C"), avg = c(8.3, 9.5, 11
>
> ), odch = c(0.2, 0.4, 0.3), identity = c("point", "point", "point"
>
> )), row.names = c(NA, 3L), class = "data.frame")
>
>
>
> I try to make some relatively simple barplot and I wanted to add points to
> it which I somehow did.
>
>
>
> library(ggplot2)
>
>
>
> p <- ggplot(test, aes(x=Sample, y=value, fill=SSAtype))
>
> p+geom_col(position="dodge")+geom_point(aes(y=SSAmeasuredP,
> shape=identity),
> size=5)+
>
> scale_fill_manual(values=tablePal, name="Calculation\n performed\n
> according
> to",
>
> labels=c("bla", "blabla"))+
>
> guides(fill= guide_legend(override.aes = list(shape=NA)))+
>
> scale_shape_manual(name = "Measured", values=19, labels=NULL)
>
>
>
> But instead of points I want to use pointrange with data from other df. I
> found some help and all is good except size of the points and missing
legend
>
>
>
> ggplot()+
>
> geom_col(data=test, aes(x=Sample, y=value, fill=SSAtype),
> position="dodge")+
>
> scale_fill_manual(values=tablePal, name="Calculation\n performed\n
> according
> to",
>
> labels=c("bla", "blabla"))+
>
> geom_pointrange(data=test.ag, aes(x=Sample, y=avg, ymin=avg-odch,
>
> ymax=avg+odch)) +
>
> guides(fill= guide_legend(override.aes = list(shape=NA)))+
>
> scale_shape_manual(name = "Measured", values=19, labels=NULL)
>
>
>
> Although I will try to find some workable way I also would like to ask for
> help from R gurus, maybe I overlooked some simple way how to do it.
>
>
>
> Best regards
>
> Petr
More information about the R-help
mailing list