R 2D contour how to smoothen contours -


i've got r script plot 2d contour.

data

.5 -1.25 10.2804  6.5404 -1.25 10.4907  6.58081 -1.25 10.8087  6.62121 -1.25 10.4686  6.66162 -1.25 10.506  6.70202 -1.25 10.3084  6.74242 -1.25 9.68256  6.78283 -1.25 9.41229  6.82323 -1.25 9.43078  6.86364 -1.25 9.62408  6.90404 -1.25 9.23871  6.94444 -1.25 9.4298  6.98485 -1.25 9.42173  7.02525 -1.25 9.45413  7.06566 -1.25 9.2722  7.10606 -1.25 9.02645  7.14646 -1.25 9.29053  

etc

script:

 options(device = png) mat <- read.table("bla2",header=true,col.names=c("x", "y", "z")) library(latticeextra)  col.l <- colorramppalette(c('blue', 'cyan', 'green', 'yellow', 'orange', 'red')) col.divs<-15 levelplot(z ~ x * y, mat,                 cex.axis=4, cex.lab=4, contour=true, cuts=30, col.regions=col.l,                 at=seq(from=0,to=9,length=col.divs),                 scales=list(x=list(at=seq(6,10.5,1), cex=2), y=list(at=seq(-1.2,1.7,0.5), cex=2),z=list(cex=2)),                 xlab=list(label=expression(xi[1] ~ "(Å)"),cex=2),                 ylab=list(label=expression(xi[2] ~ "(Å)"),cex=2),                 main="fes kir") dev.copy(png,'fes_kir.png')  mat   dev.off() 

desired output style 1 data smoothed

actual output rugged

any appreciated!


Comments

Popular posts from this blog

php - How to display all orders for a single product showing the most recent first? Woocommerce -

asp.net - How to correctly use QUERY_STRING in ISAPI rewrite? -

angularjs - How restrict admin panel using in backend laravel and admin panel on angular? -