Legende als eigenständige Grafik

Wie erstelle ich Grafiken, was ist zu beachten?

Moderatoren: EDi, jogo

Antworten
mokka
Beiträge: 19
Registriert: Fr Okt 19, 2018 2:46 pm

Legende als eigenständige Grafik

Beitrag von mokka » Sa Dez 08, 2018 10:20 pm

Hallo allerseits!

Ich dreh mich nur noch im Kreis, daher ein Hilferuf hier :roll:

Ich mache einen Plot, in dem der Verlauf eines Parameters unter Verschiedenen Bedingungen in einem Boxplot dargestellt wird. Sieht gekürzt so aus:

Code: Alles auswählen


library(ggpubr)
library(extrafont)

data_BGA_mean<- read.csv("C:/Data_mean.csv",sep=";",dec=",",header=TRUE)
par(mar=c(1.5, 5, 3, 2),mgp=c(2.4, 0.8, 0),las = 0)
boxplot(data_BGA_mean$mean_Base_A,data_BGA_mean$mean_Base_B,
        main=paste("Base"),
        ylab="(mmol/L)",
        names=c("A","B"),
        prob=TRUE, 
        cex.lab=2,
        cex.axis=2,
        cex.main=2,
        cex.sub=1.5,
        boxwex=0.4,
        col = c("grey85", "grey45")
)
for(i in 1:length(data_BGA_mean$ID)) lines(c(1,2),c(data_BGA_mean$mean_Base_A[i],data_BGA_mean$mean_Base_B[i]), col=rainbow(length(data_BGA_mean$ID))[i], lwd=5)
for(i in 1:length(data_BGA_mean$ID)) points(c(1,2),c(data_BGA_mean$mean_Base_A[i],data_BGA_mean$mean_Base_B[i]), col=rainbow(length(data_BGA_mean$ID))[i], lwd=5)

Ich möchte nun die "ID" der verschiedenen Proben in einer Legende Bezeichnen. Und zwar so, dass in der Legende der entsprechend farbige Strich ist und daneben steht dann "Probe" und dann der jeweilige Wert von i.

Danke für eure Hilfe :)

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast