私はこれに本当に遅れていることを知っていますが、私はかなり簡単な解決策を見つけたと思います。
のソースコードをfloating.pie()
(たとえばを呼び出してgetAnywhere(floating.pie)
)見ると、非常にシンプルでありながら効果的なアプローチを使用していることに気付くでしょう:パイセグメントをポリゴンとして描画します。棒グラフに必要なのが棒(ラベル、軸などなし)だけである場合、同じアプローチに従って独自の関数を作成できます。これは、簡単で汚いバージョンです。
# the function
mapbars <- function (x, xllc = 0, yllc = 0, barwidth=1, maxheight=10){
# calculate how long each bar needs to be
bars <- (x/max(x)) * maxheight
# get some quick colors
col <- rainbow(length(x))
for(i in 1:length(x)){
# figure out x- and y coordinates for the corners
leftx <- xllc + ((i-1) * barwidth)
rightx <- leftx + barwidth
bottomy <- yllc
topy <- yllc + bars[i]
# draw the bar
polygon(x=c(leftx, rightx, rightx, leftx, leftx),
y=c(bottomy, bottomy, topy, topy, bottomy),
col=col[i])
}
}
x
値はバーで表されます
xllc
そしてyllc
、あなたが使用している座標系をどのように左のバーの左下隅の位置を指定します
barwidth
そしてmaxheight
、バーのサイズをスケーリングするために使用されます
これは、基本的なsp
プロットを使用したデモです。私はplotrix
以前に働いたことはないと思います が、どのようにfloating.pie
機能するかに基づいて、これもで動作するはずだと思いplotrix
ます。
library(sp)
library(maptools) # just for easy access to a background map
# load some country borders as a background
data("wrld_simpl")
plot(wrld_simpl)
# zoom on a bit …
mexico <- subset(wrld_simpl, NAME=="Mexico")
plot(mexico, axes=TRUE)
# data for the bars
x1 <- c(4, 7, 1, 2)
# plot
plot(mexico, axes=TRUE)
mapbars(x=x1, xllc=-110, yllc=20, barwidth=.5, maxheight=5)
legend(x="topright", pch=22, col="black", pt.bg=rainbow(x1), legend=c("foo", "bar", "baz", "foobar"))
# add another one:
x2 <- c(9, 21, 64, 45, 33, 43, 12, 7)
mapbars(x=x2, xllc=-100, yllc=25, barwidth=.2, maxheight=2)
結果は次のようになります。
ggsubplot
パッケージでそれを行う方法も知っていましたが、今では廃止されており、動作しません(あなたが言ったように)。:おそらく、この記事は開始点となりますstackoverflow.com/questions/36063043/...