Beste tweakers,
Ik denk dat m'n vraag het best hier bijkan, dus bij deze.
Ik heb een(nep) database met 500 patiëntgegevens. Deze patiënten worden behandeld voor hun ziekte. Er zijn twee behandelmethodes. Het is de bedoeling dat ik uit de vele gegevens moet kunnen afleiden welke behandeling het best is (minst overledenen). Ik moet werken met het programma 'R'.
Ik kan nu een histogram (Edit: Barplot) maken waarbij de twee behandelmethoden kan splitsen. Van ieder methode kan ik bijvoorbeeld kijken hoeveel procent van de mensen diabetes wel en niet hebben. Ik krijg dus dit:
https://www.dropbox.com/s...abetus%20met%20stents.png [/img]
Wat ik eigenlijk wil,maar wat me niet lukt is dat ik ook nog een derde conditie wil hebben. Ik heb er namelijk niet veel aan hoeveel mensen diabetes hebben bij behandeltype A. Ik wil ook weten hoeveel mensen daarvan het eind wel/niet gehaald hebben. Dus eigenlijk wil ik mijn huidige histogram twee keer hebben waarbij je bij de ene gegevens hebt van dode mensen en de andere overlevende mensen.
Ik heb het wel in een tabel vorm kunnen krijgen, maar niet in een histogram:
https://www.dropbox.com/s...tents%20en%20endpoint.png
Ik weet dus niet hoe ik m'n code tot nu toe verder kan aanpassen om aan m'n eisen te voldoen.
Dit is mijn code tot nu toe:
library(foreign, pos=4)
Dataset <-
read.spss("D:/Google drive/TU ....../Coronary_disease_set_9.sav",
use.value.labels=TRUE, max.value.labels=Inf, to.data.frame=TRUE)
colnames(Dataset) <- tolower(colnames(Dataset))
mydata<-xtabs(~dm+rando, data=Dataset)
library(abind, pos=4)
mytable<-colPercents(mydata)
mygraph<-barplot(mytable[-3:-4,-6:-8], beside=TRUE, col=c("blue", "red"), legend=TRUE, ylab="Percentages", main="Diabetus Mellitus", ylim=c(0,100))
text(mygraph, 0, round(mytable[-3:-4,-6:-8], 1.0), cex=1, pos=3, col=c("white"))
Heeft iemand een tip hoe ik dit kan aanpakken/aanpassen?
Mvg
Ik denk dat m'n vraag het best hier bijkan, dus bij deze.
Ik heb een(nep) database met 500 patiëntgegevens. Deze patiënten worden behandeld voor hun ziekte. Er zijn twee behandelmethodes. Het is de bedoeling dat ik uit de vele gegevens moet kunnen afleiden welke behandeling het best is (minst overledenen). Ik moet werken met het programma 'R'.
Ik kan nu een histogram (Edit: Barplot) maken waarbij de twee behandelmethoden kan splitsen. Van ieder methode kan ik bijvoorbeeld kijken hoeveel procent van de mensen diabetes wel en niet hebben. Ik krijg dus dit:
https://www.dropbox.com/s...abetus%20met%20stents.png [/img]
Wat ik eigenlijk wil,maar wat me niet lukt is dat ik ook nog een derde conditie wil hebben. Ik heb er namelijk niet veel aan hoeveel mensen diabetes hebben bij behandeltype A. Ik wil ook weten hoeveel mensen daarvan het eind wel/niet gehaald hebben. Dus eigenlijk wil ik mijn huidige histogram twee keer hebben waarbij je bij de ene gegevens hebt van dode mensen en de andere overlevende mensen.
Ik heb het wel in een tabel vorm kunnen krijgen, maar niet in een histogram:
https://www.dropbox.com/s...tents%20en%20endpoint.png
Ik weet dus niet hoe ik m'n code tot nu toe verder kan aanpassen om aan m'n eisen te voldoen.
Dit is mijn code tot nu toe:
library(foreign, pos=4)
Dataset <-
read.spss("D:/Google drive/TU ....../Coronary_disease_set_9.sav",
use.value.labels=TRUE, max.value.labels=Inf, to.data.frame=TRUE)
colnames(Dataset) <- tolower(colnames(Dataset))
mydata<-xtabs(~dm+rando, data=Dataset)
library(abind, pos=4)
mytable<-colPercents(mydata)
mygraph<-barplot(mytable[-3:-4,-6:-8], beside=TRUE, col=c("blue", "red"), legend=TRUE, ylab="Percentages", main="Diabetus Mellitus", ylim=c(0,100))
text(mygraph, 0, round(mytable[-3:-4,-6:-8], 1.0), cex=1, pos=3, col=c("white"))
Heeft iemand een tip hoe ik dit kan aanpakken/aanpassen?
Mvg
[ Voor 7% gewijzigd door Kenpachi op 13-03-2014 19:24 ]