Incorrect figure

[amingson]

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!

[amingson]

作者您好！
就是我参考手册运行代码的时候，出现了不正确的显示结果，如图

希望能够得到您的帮助！感谢。

[junjunlab]

已经修复,重新安装即可。