Слайсер PowerBI управляется R - PullRequest
Новая
       57

Слайсер PowerBI управляется R

0 голосов
/ 21 мая 2018

У меня есть программа R в PowerBI, где я хотел бы изменить с помощью слайсера следующие условия

sta5 <- test.pca $ x [which (m $ Obj == 5),] sta5 [1: 2] </p>

Возможно ли автоматическое изменение программы R с помощью слайсера?m $ Obj должен быть гибким? 

data(dataset)

head(dataset)
m <-dataset
nc <-ncol(dataset)
values <- dataset[,3:nc]
values
mean_is_0 <- sapply(values, mean) == 0
values <- values[ ! mean_is_0 ]
is.na(values) <- !values
values

mean_is_0 <- sapply(values, mean) == 0
values


for(i in 1:ncol(values)){
  values[is.na(values[,i]), i] <- mean(values[,i], na.rm = TRUE)
}  
values

test.pca <- prcomp(values,center = TRUE,scale. = TRUE)
plot(test.pca)
predict(test.pca,  newdata=tail(values, 2))
library(devtools)
library(ggbiplot)



sta5 <- test.pca$x[which(m$Obj == 5),]
   sta5[1:2]


sta4 <- test.pca$x[which(m$Obj == 4),]
sta4[1:2]
sta3 <- test.pca$x[which(m$Obj == 3),]
sta3[1:2]
sta2 <- test.pca$x[which(m$Obj == 2),]
sta2[1:2]
sta1 <- test.pca$x[which(m$Obj == 1),]
sta1[1:2]


g <- ggbiplot(test.pca, obs.scale = 1, var.scale = 1, ellipse = TRUE, 
              circle = FALSE) + geom_point(aes(x=sta5[1], y=sta5[2]), col="blue", size=4) + geom_point(aes(x=sta4[1], y=sta4[2]), col="blue", size=4)+ geom_point(aes(x=sta3[1], y=sta3[2]), col="blue", size=4)+ geom_point(aes(x=sta2[1], y=sta2[2]), col="blue", size=4)+ geom_point(aes(x=sta1[1], y=sta1[2]), col="blue", size=4) 


g <- g + scale_color_discrete(name = '')
g <- g + theme(legend.direction = 'horizontal', 
               legend.position = 'top')



print(g)
...