Restrict Ternary Limits

plot <- ggtern(data=data.frame(x=runif(100),
                               y=runif(100),
                               z=runif(100)), aes(x,y,z)) +
        geom_point() +
        tern_limits(0.7,0.3,0.4)
plot