Özel görüntü ekleme geom_polygon ggplot doldurunuz

SORU

29 Ocak 2015, PERŞEMBE

Özel görüntü ekleme geom_polygon ggplot doldurunuz

Eğer bir komplo R kullanarak aşağıda: benzer yeniden yaratmak mümkün olsaydı bir öğrenci tarafından istendi

enter image description here this paper....

Bu tür şeyler benim uzmanlık alanım değil, ama aşağıdaki kodu kullanarak � CI elips oluşturmak için geom_polygon() ile arsa başardı. Phylopic kütüphane rphylopic paket kullanarak aldım görüntüleri ile görüntüleri doldurdum.

#example data/ellipses
set.seed(101)
n <- 1000
x1 <- rnorm(n, mean=2)
y1 <- 1.75   0.4*x1   rnorm(n)
df <- data.frame(x=x1, y=y1, group="A")
x2 <- rnorm(n, mean=8)
y2 <- 0.7*x2   2   rnorm(n)
df <- rbind(df, data.frame(x=x2, y=y2, group="B"))
x3 <- rnorm(n, mean=6)
y3 <- x3 - 5 - rnorm(n)
df <- rbind(df, data.frame(x=x3, y=y3, group="C"))


#calculating ellipses
library(ellipse)
df_ell <- data.frame()
for(g in levels(df$group)){
  df_ell <- rbind(df_ell, cbind(as.data.frame(with(df[df$group==g,], ellipse(cor(x, y), 
                                                                             scale=c(sd(x),sd(y)), 
                                                                             centre=c(mean(x),mean(y))))),group=g))
}
#drawing
library(ggplot2)
p <- ggplot(data=df, aes(x=x, y=y,colour=group))   
  #geom_point(size=1.5, alpha=.6)  
  geom_polygon(data=df_ell, aes(x=x, y=y,colour=group, fill=group), alpha=0.1, size=1, linetype=1)


### get center points of ellipses
library(dplyr)
ell_center <- df_ell %>% group_by(group) %>% summarise(x=mean(x), y=mean(y))

### animal images
library(rphylopic)
lion <- get_image("e2015ba3-4f7e-4950-9bde-005e8678d77b", size = "512")[[1]]
mouse <- get_image("6b2b98f6-f879-445f-9ac2-2c2563157025", size="512")[[1]] 
bug <- get_image("136edfe2-2731-4acd-9a05-907262dd1311", size="512")[[1]]

### overlay images on center points
p   add_phylopic(lion, alpha=0.9, x=ell_center[[1,2]], y=ell_center[[1,3]], ysize=2, color="firebrick1")    
    add_phylopic(mouse, alpha=1, x=ell_center[[2,2]], y=ell_center[[2,3]], ysize=2, color="darkgreen")  
    add_phylopic(bug, alpha=0.9, x=ell_center[[3,2]], y=ell_center[[3,3]], ysize=2, color="mediumblue")   
  theme_bw()

Aşağıdaki verir:

enter image description here

Bu tamam, ama asıl yapmak istediğim şey, doğrudan 'geom_polygon. Komutanlığı' doldurmak için bir resim eklemektir. Bu mümkün mü ?

CEVAP

28 Kasım 2012, ÇARŞAMBA

Sunucuda bu hizmetler etkinleştirmeyi deneyin:

Akran Çözünürlüğü Sunucu (Server Management Yükleme yoluyla) Adı
Discovery Server (Sunucu Yönetimi Yüklemek yoluyla) eş
Basit Hizmet algılama Protokolü Hizmeti (MAKİNESİ Servisi)

O zaman sadece güvenlik Duvarı Kuralları değiştirilmiş; varsayılan olarak IPv4 / IPv6 Teredo Tünel sürücüsü bloke ederler emin olun. IPv6 PNRP tarafından gerekli olduğu gibi desteklenmesi gerekiyor.

Ayrıca, bir Windows Hizmeti olarak Internet Bilgi Sistemleri (IIS) aracılığıyla iki şekilde; ya hizmet yapılandırmak gerekir. En iyi bahis IIS kullanmak olacak, bir makale burada yapılandırma konusunda bulabilirsiniz: Hosting and Consuming WCF Service

Bu aklıma birkaç ipucu çalışan olsun. Bu yardımcı olur umarım.

Bunu Paylaş: