search for: element_rect

...m <- function (base_size = 10, base_family = "serif") {? theme_grey(base_size = base_size, base_family = base_family) %+replace%? ? theme(? ? ? line = ? ? ? ? ? ? ? element_line(colour = "black", size = 0.5, linetype = 1, lineend = "butt"),? ? ? rect = ? ? ? ? ? ? ? element_rect(fill = "white", colour = "black", size = 0.5, linetype = 1),? ? ? text = ? ? ? ? ? ? ? element_text(family = base_family, face = "plain", colour = "black", size = base_size, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9),? ? ? axis.text = ? ? ? ? ?ele...

...s maintainer, Barret Schloerke. function(data, mapping, ...) { p <- ggplot(data = data, mapping = mapping) + geom_point(color = I("blue")) + geom_smooth(method = "lm", color = I("black"), ...) + theme_blank() + theme(panel.border=element_rect(fill=NA, linetype = "solid", color="black")) lmModel <- eval(substitute(lm(y ~ x, data = data), mapping)) fs <- summary(lmModel)$fstatistic pValue <- pf(fs[1], fs[2], fs[3], lower.tail = FALSE) if (pValue < 0.05) { p <- p + theme(...

...core*200, color=V(network)$Subcategory_type)) + geom_node_text(aes(label = V(network)$name), size=3, color="white", repel=T)+ scale_color_scico_d(palette = "batlow")+ scale_edge_width(range = c(0.2,4))+ scale_size(range = c(0.5,15)) + theme(plot.background = element_rect(fill = "black"), legend.position = "right", panel.background = element_rect(fill = "black")) --- snip --- At least in my data created with your code, the object "network" does not have an attribute "community". I use the existi...

...s.numeric(gsub("\\,", ".", as.character(ft$Share))) > > ggbar <- ggplot(ft, aes(x = hora, y = frec)) + > geom_area(fill= "gray") + > scale_x_datetime(date_breaks = "5 mins", date_labels = "%H:%M") + > theme(panel.background = element_rect(fill = "white")) + > scale_y_continuous(limits=c(0,1500)) + > labs(x = "Minutos", y = "Tweets") + # Etiquetas o títulos de los ejes > theme(axis.text.x=element_text(angle=90)) # Orientación texto eje x > > ggshr <- ggplot(ft, aes(x = hora, y = S...

...core*200, color= as.factor(V(network)$community))) + geom_node_text(aes(label = V(network)$name), size=3, color="white", repel=T)+ scale_color_scico_d(palette = "batlow")+ scale_edge_width(range = c(0.2,4))+ scale_size(range = c(0.5,15)) + theme(plot.background = element_rect(fill = "black"), legend.position = "right", panel.background = element_rect(fill = "black")) dev.off() -----Original Message----- From: R-help <r-help-bounces at r-project.org> On Behalf Of Kimmo Elo Sent: Thursday, March 21, 2024 10:51 AM...

...A8")) + coord_polar(theta="y") + xlab('') + ylab('') + labs(fill='Goal') + theme( plot.title = element_text(lineheight=.8, face="bold"), panel.background = element_rect(fill = "transparent",colour = NA), panel.grid.minor = element_blank(), panel.grid.major = element_blank(), strip.background = element_rect(fill = "transparent",colour = NA), strip.text.y = element_text(face="bold...

...one observation. Do you need to adjust the groupaesthetic?* >> >> Modifique el código tal que así: >> >> ggbar<-ggplot(ft, aes(x=ft$hora, y=ft$frec)) + >> geom_bar(stat="identity", width = 0.8, fill="gray") + >> theme(panel.background = element_rect(fill = "white")) + >> scale_y_continuous(limits=c(0,1500)) >> ggline<-ggplot(ft, aes(x=ft$hora, y=ft$Miles)) + >> geom_line()+ >> theme(panel.background = element_rect(fill = "white")) + >> scale_y_continuous(limits=c(0,1500)) >> &g...

...e=5, color="white", > repel=T)+ > ? scale_color_scico_d(palette = "batlow")+ > ? scale_edge_width(range = c(0.2,4))+ > ? scale_size(range = c(0.5,20)) + > ? #scale_edge_color_manual(values = c(scico(21, palette="batlow")))+ > ? theme(plot.background = element_rect(fill = "black"), > ??????? legend.position = "right", > ??????? panel.background = element_rect(fill = "black")) > dev.off() > > ______________________________________________ > R-help at r-project.org?mailing list -- To UNSUBSCRIBE and more, see &gt...

...label = V(network)$name), size=5, color="white", repel=T)+ scale_color_scico_d(palette = "batlow")+ scale_edge_width(range = c(0.2,4))+ scale_size(range = c(0.5,20)) + #scale_edge_color_manual(values = c(scico(21, palette="batlow")))+ theme(plot.background = element_rect(fill = "black"), legend.position = "right", panel.background = element_rect(fill = "black")) dev.off()

Se ha borrado un adjunto en formato HTML... URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20140826/ccb76301/attachment.html>

...p > consists of only one observation. Do you need to adjust the groupaesthetic?* > > Modifique el código tal que así: > > ggbar<-ggplot(ft, aes(x=ft$hora, y=ft$frec)) + > geom_bar(stat="identity", width = 0.8, fill="gray") + > theme(panel.background = element_rect(fill = "white")) + > scale_y_continuous(limits=c(0,1500)) > ggline<-ggplot(ft, aes(x=ft$hora, y=ft$Miles)) + > geom_line()+ > theme(panel.background = element_rect(fill = "white")) + > scale_y_continuous(limits=c(0,1500)) > > library(gridExtra) &g...

...305, 10))+ geom_errorbar(data=tabla, aes(y=Mean, ymin=Mean - 1.96*Mean.Error, ymax = Mean + 1.96*Mean.Error),col="gray40", width=0.3, size=1) + geom_point(data=tabla, aes(y=Mean), size = 3, colour ="gray30", pch=16) + labs(x="", y="")+ theme(panel.background=element_rect(fill="white", colour="#B4CDFF"), panel.grid.minor=element_blank(), panel.grid.major.y=element_blank(), axis.text = element_text(colour = "black"), legend.position="none") + guides(fill = guide_legend(label.position = "bottom"))+ coord_flip() #........

(I'm afraid this post didn't reach the list on last Wednesday, here it is again ) hi R-list, And sorry for my frenglish ! I am running R < Good Sport > release ( i386-w64-mingw32/i386 (32-bit) ) ) under Windows 7 Professional, Service Pack 1. My perl executable is ActivePerl build 817 [257965] (i.e. version 5.8.8.817). Usually it is working fine. Using the gdata ::read.xls

Y bueno, algo más bonito sí que queda con ggplot... #--------------- datIn <- read.csv("pec.csv", header = TRUE, sep = ";", dec = ",") library(ggplot2) lab_x_idx <- c(1, round(nrow(datIn)/2, 0), nrow(datIn)) lab_x <- as.vector(datIn$hora[ lab_x_idx]) fre_gg <- ggplot( datIn, aes( x = 1:nrow(datIn), y = frec)) + geom_bar(stat =

Dear R-users, i encountered some problems when trying to adjust the line width of the axes and stripes in a plot created with ggplot2. I use the "barley" dataset of the lattice package to illustrate my problem: library(ggplot2) library(lattice) barley[["SD"]] <- 5 limits <- aes(ymax=barley$yield + barley$SD,ymin=barley$yield - barley$SD) p1 <-

The reason html is specifically advised against as a format is that it does things like mangling data such as is happening in your example. You should repost using settings on you mail client for plain-text. Your code should start by loading necessary packages. You should also not post screen output versions of code since that will insert lots of superfluous "+"'s. Some but not

...label = V(network)$name), size=5, color="white", repel=T)+ scale_color_scico_d(palette = "batlow")+ scale_edge_width(range = c(0.2,4))+ scale_size(range = c(0.5,20)) + #scale_edge_color_manual(values = c(scico(21, palette="batlow")))+ theme(plot.background = element_rect(fill = "black"), legend.position = "right", panel.background = element_rect(fill = "black")) dev.off() -----Original Message----- From: R-help <r-help-bounces at r-project.org> On Behalf Of Kimmo Elo Sent: Monday, February 26, 2024 8:10 AM T...

Hi, a quick additional note: try "edge.width= E(.)$weight" instead of the current "edge.width= network". Seems to work and makes a visible difference... HTH, Kimmo su, 2024-02-25 kello 19:11 +0000, Kimmo Elo kirjoitti: > > Hi again, > > your code is still not reproducible without modifications, but I > succeed in getting the data straight. All

...305, 10))+ geom_errorbar(data=tabla, aes(y=Mean, ymin=Mean - 1.96*Mean.Error, ymax = Mean + 1.96*Mean.Error),col="gray40", width=0.3, size=1) + geom_point(data=tabla, aes(y=Mean), size = 3, colour ="gray30", pch=16) + labs(x="", y="")+ theme(panel.background=element_rect(fill="white", colour="#B4CDFF"), panel.grid.minor=element_blank(), panel.grid.major.y=element_blank(), axis.text = element_text(colour = "black"), legend.position="none") + guides(fill = guide_legend(label.position = "bottom"))+ coord_flip() #.....

Buenas tardes, Estoy intentando mejorar un gráfico que construyo pero de manera "bruta" y quiere encontrar una manera más eficiente. El gráfico en cuestión tiene más partes pero para simplificar la parte que me interesa es esta: [image: Imágenes integradas 5] Esto es una elipse de confianza de unos puntos, la elipse la consigo ayudándome de dataEllipse (paquete car), para llegar a