Schleife einbauen

Wie rufe ich R-Funktionen auf, wie selektiere ich Daten, ich weiß nicht genau ....

Moderatoren: EDi, jogo

jogo
Beiträge: 935
Registriert: Fr Okt 07, 2016 8:25 am

Re: Schleife einbauen

Beitrag von jogo » Fr Okt 12, 2018 9:51 am

Hallo NeueR,

an Reproduzierbarkeit müssen wir noch arbeiten. Bei mir sieht das so aus:

Code: Alles auswählen

library("nVennR")

d1 <- createVennObj(nSets = 2, sNames = c('A', 'B'))
d1 <- setVennRegion(d1, c("A"), 5)
d1 <- setVennRegion(d1, c("B"), 3)
d1 <- setVennRegion(d1, c("A", "B"), 1)
myV <- plotVenn(nVennObj = d1)
showSVG(nVennObj = myV)
mit dem Ergebnis:
Warnmeldung:
In showSVG(myVenn, ...) :
The figure cannot be rendered in the plot window. Please, use the arguments outFile and/or systemShow.
:o
Ich habe mir dann folgendes erarbeitet:

Code: Alles auswählen

library("nVennR")

d1 <- createVennObj(nSets = 2, sNames = c('A', 'B'))
d1 <- setVennRegion(d1, c("A"), 5)
d1 <- setVennRegion(d1, c("B"), 3)
d1 <- setVennRegion(d1, c("A", "B"), 1)
myV <- plotVenn(nVennObj = d1)
showSVG(nVennObj = myV, systemShow = TRUE)
So, jetzt brauchen wir nur noch den Dataframe daten in reproduzierbarer Form.
z.B.

Code: Alles auswählen

daten <- read.csv(header=TRUE, text=
"N, Region1, Region2, Region3
A, 5, 8, 10
B, 3, 5, 6
AB, 1,3,5")
Danach kann es an die eigentliche Hilfeleistung gehen ...

Gruß, Jörg

NeueR
Beiträge: 8
Registriert: Do Okt 11, 2018 9:56 am

Re: Schleife einbauen

Beitrag von NeueR » Fr Okt 12, 2018 10:16 am

Hallo Jörg,

ja da hast du Recht... da muss ich mich noch steigern :oops:
Die nächsten Tage sollte mein bestelltes R-Buch eintreffen.

Vielen Dank für deine Geduld.
Ja genau so meinte ich das.

Die Warnmeldung In showSVG(myVenn, ...) liegt wahrscheinlich daran, dass weiter Pakete installiert werden müssen.

jogo
Beiträge: 935
Registriert: Fr Okt 07, 2016 8:25 am

Re: Schleife einbauen

Beitrag von jogo » Fr Okt 12, 2018 10:44 am

Hallo NeueR,

Code: Alles auswählen

library("nVennR")

daten <- read.csv(header=TRUE, text=
"N, Region1, Region2, Region3
A, 5, 8, 10
B, 3, 5, 6
AB, 1,3,5")

myPlot <- function(x) {
  x <- as.numeric(x)
  d1 <- createVennObj(nSets = 2, sNames = c('A', 'B'))
  d1 <- setVennRegion(d1, c("A"), x[1])
  d1 <- setVennRegion(d1, c("B"), x[2])
  d1 <- setVennRegion(d1, c("A", "B"),  x[3])
  plotVenn(nVennObj = d1, showPlot = FALSE)
}

# debug(myPlot)
myV <- lapply(daten[-1], FUN=myPlot)
showSVG(nVennObj = myV[[1]], systemShow = TRUE)
showSVG(nVennObj = myV[[2]], systemShow = TRUE)
showSVG(nVennObj = myV[[3]], systemShow = TRUE)

NeueR
Beiträge: 8
Registriert: Do Okt 11, 2018 9:56 am

Re: Schleife einbauen

Beitrag von NeueR » Fr Okt 12, 2018 11:19 am

Wow :)
Suuuper, ganz herzlichen Dank Jörg - für die Hilfe, den Code und die Geduld.

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast