0

R で levelplot() を使用して、マトリックス (36 X 32) のカラー イメージを生成しています。行列には多くの NaN 値が含まれています。次のコマンドを使用してレベルプロットを生成しようとすると

range = c(815.4, 816.2)
matpalette <- colorRampPalette(c("blue", "black", "red"))(100)
levelplot(t(m1),scales = list(draw = FALSE), col.regions = matpalette, xlab = "", ylab = "", at = seq(min(m1), max(m1), length = 100), main=main)

次のエラー メッセージが表示されます。

Error in seq.default(min(m1), max(m1), length = 100) : 'from' cannot be NA, NaN or infinite

このエラーは理解されています。levelplot() で min(m1) と max(m1) を使用する代わりに、次を使用しようとすると:

levelplot(m1,scales = list(draw = FALSE), col.regions = matpalette, xlab = "", ylab = "", at = seq(range[1], range[2], length = 100), main=main)

カラーバーと目盛り値として指定された範囲だけで、空のプロットを取得します。

ここに画像の説明を入力

私が必要としているのは、マトリックス内の値のプロットと、提供されている levelplot と同じカラーバーと同一の目盛り値です。誰でもこれで私を助けることができますか？

# バリアント 2

 s <- seq(from=range[1], to=range[2], by=0.1)

 levelplot(t(m1), scales=list(tick.number=0), xlab=" ", ylab=" ", colorkey = list(at=s, labels=as.character(s)),col.regions = two.colors(n=256, start='blue', end='red', middle='black'), main=main)

私が得るカラーバーはこのようなものです

ここに画像の説明を入力

注：使用範囲が異なります

4

1 に答える 1

1

このような？？

test <- read.csv("test.csv")
library(lattice)
library(colorRamps)  # for colorRampPalette
matpalette <- colorRampPalette(c("blue", "black", "red"))(100)
levelplot(as.matrix(test[,-1]),col.regions=matpalette)

これは多かれ少なかれ同じものを使用していますggplot

library(ggplot2)
library(reshape2)    # for melt(...)
library(grid)        # for unit(...)
gg <- melt(test,id="X")
ggplot(gg,aes(x=X,y=variable,fill=value))+
  geom_tile()+
  scale_fill_gradientn(name="",colours=matpalette,na.value="white")+
  scale_x_continuous(expand=c(0,0))+
  scale_y_discrete(expand=c(0,0))+
  coord_fixed()+ theme_bw()+
  theme(legend.key.height=unit(.15,"npc"))

于 2014-12-02T22:23:04.943 に答える