Forum Discussion

Anonymous's avatar
Anonymous
Not applicable
5 years ago
Solved

R script colouring

I'm currently trying to run the following script through my R visual in Power BI: library(scatterplot3d) x <-dataset$Week.Calendar y <-dataset$ICU.Stay z <-dataset$Age.Years scatterplot3d(x...
Need Help
  • mahoneypat's avatar
    mahoneypat
    5 years ago

    Using "color" is correct.  I'm not sure why as.numeric isn't working here, but this code seems to.

     

    x <-dataset$Week.Calendar
    y <-dataset$ICU.Stay
    z <-dataset$Age.Years
    colors <- dataset$County.Event
    newcolors <- rainbow(length(unique(colors)))[as.numeric( as.factor(colors))]

    scatterplot3d(x,y,z,
    color= newcolors,
    pch = 1,
    xlab="Week",
    ylab="ICU Stay",
    zlab="Age",
    angle=dataset$Angle[1])

     

    Regards,

    Pat

mahoneypat's avatar
mahoneypat
Microsoft Employee
5 years ago

Using "color" is correct.  I'm not sure why as.numeric isn't working here, but this code seems to.

 

x <-dataset$Week.Calendar
y <-dataset$ICU.Stay
z <-dataset$Age.Years
colors <- dataset$County.Event
newcolors <- rainbow(length(unique(colors)))[as.numeric( as.factor(colors))]

scatterplot3d(x,y,z,
color= newcolors,
pch = 1,
xlab="Week",
ylab="ICU Stay",
zlab="Age",
angle=dataset$Angle[1])

 

Regards,

Pat