Dear author!
Thank you for sharing such a useful package!!!!
when i run 7.4 examples example1 code ::
test
cor_data <- cor(mtcars) %>%
data.frame() %>%
mutate(x = rownames(.)) %>%
melt(.,id.vars = "x")
cor_data <- cor_data %>% filter(variable %in% c('mpg','cyl','disp','hp'))
add some value
cor_data$value2 <- rev(cor_data$value)
cor_data$value3 <- runif(44,min = -1,max = 1)
cor_data$value4 <- runif(44,min = -1,max = 1)
ggplot(cor_data,
aes(x = x,y = variable)) +
geom_jjtriangle(aes(fill = value),type = 'ul') +
scale_fill_gradient(low = '#FFCC33',high = '#99CC33') +
new legend
new_scale_fill() +
geom_jjtriangle(aes(fill = value2),type = 'br') +
scale_fill_gradient(low = '#66CCCC',high = '#FF3399') +
coord_fixed()
I got a different figure ！！！！
I hope I can get your help, thanks!
Dear author!
Thank you for sharing such a useful package!!!!
when i run 7.4 examples example1 code ::
test
cor_data <- cor(mtcars) %>%
data.frame() %>%
mutate(x = rownames(.)) %>%
melt(.,id.vars = "x")
cor_data <- cor_data %>% filter(variable %in% c('mpg','cyl','disp','hp'))
add some value
cor_data$value2 <- rev(cor_data$value)
cor_data$value3 <- runif(44,min = -1,max = 1)
cor_data$value4 <- runif(44,min = -1,max = 1)
ggplot(cor_data,
aes(x = x,y = variable)) +
geom_jjtriangle(aes(fill = value),type = 'ul') +
scale_fill_gradient(low = '#FFCC33',high = '#99CC33') +
new legend
new_scale_fill() +
geom_jjtriangle(aes(fill = value2),type = 'br') +
scale_fill_gradient(low = '#66CCCC',high = '#FF3399') +
coord_fixed()
I got a different figure ！！！！
I hope I can get your help, thanks!