9
Se você se refere ao needle plot, isto é, plotar as variáveis como barras saindo do eixo zero (ou mínimo), basta colocar o parâmetro type = h no plot.
Por exemplo:
with(economics, plot(date, unemploy, type="h"))
Como você mencionou histograma,talvez você queira ver os pontos de uma única variável ao longo de uma linha. Para isso você pode usar o dotplot ...
respondida 1/09/14 às 15:44
Carlos Cinelli
16,7mil99 medalhas de ouro5757 medalhas de prata100100 medalhas de bronze
9
Outra alternativa é utilizar o pacote ggplot2:
set.seed(1)
x <- rnorm(100)
y <- rnorm(100) + 2*x +10
require(ggplot2)
dados <- data.frame(x=x, y=y) # O ggplot2 exige que os dados estejam em um data.frame
p <- ggplot(dados, aes(x=x, y=y)) + # Informa os dados a serem utilizadps
geom_point() # Informa que eu quero um gráfico de dispersão.
p
...
8
Você pode usar a função abline junto com coef para extrair os coeficientes do modelo e plotar a linha:
plot(y~x)
abline(coef(modelo))
respondida 18/02/14 às 13:52
Carlos Cinelli
16,7mil99 medalhas de ouro5757 medalhas de prata100100 medalhas de bronze
8
Use o comando draw.circle do pacote plotrix:
x <- seq(-3, 3, by=0.01)
y <- x^2
plot(y ~ x, asp=1, type="l")
library(plotrix)
draw.circle(1, 1, 1, border="red")
draw.circle(1, 1, 2, border="green")
draw.circle(1, 1, 3, border="blue")
A sintaxe do comando draw.circle é bem simples:
o primeiro argumento é a coordenada do centro do círculo no eixo x
o ...
respondida 15/05/18 às 14:08
Marcus Nunes
16,8mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
7
Eu recomendaria utilizar ou o ggplot2 ou o lattice, ambos funcionam de forma que os gráficos são objetos do R, que podem ser modificados, salvos etc de maneira fácil. Por exemplo:
library(ggplot2)
grafico_ggplot <- ggplot(mtcars, aes(mpg, cyl)) + geom_point()
grafico_ggplot
library(lattice)
grafico_lattice <- xyplot(cyl~mpg, mtcars)
grafico_lattice
...
respondida 24/11/15 às 12:31
Carlos Cinelli
16,7mil99 medalhas de ouro5757 medalhas de prata100100 medalhas de bronze
7
Segue uma possível solução, usando geom_text:
set.seed(1)
x <- rnorm(100)
y <- rnorm(100) + 2*x +10
modelo <- lm(y~x)
coeficientes <- modelo$coefficients
texto <- sprintf('y = %.2f + %.2fx, r² = %.2f', coeficientes[1], coeficientes[2], summary(modelo)$r.squared)
require(ggplot2)
dados <- data.frame(x=x, y=y) # O ggplot2 exige que os dados ...
7
Uma maneira é usar a função coplot:
coplot(y~x |w, data=dados)
Também é possível fazer com o ggplot2 usando facet_wrap:
library(ggplot2)
ggplot(data=dados, aes(y=y, x=x))+ geom_point(aes(color=w))+facet_wrap( ~ w)
respondida 20/02/14 às 15:24
Carlos Cinelli
16,7mil99 medalhas de ouro5757 medalhas de prata100100 medalhas de bronze
7
Coloque o argumento legend=FALSE no comando do teu gráfico:
plot(curva5r, ylab= "Dose (%)", xlab = "Dose (g.e.a. de glyphosate ha-1)",
legend=FALSE)
Exemplo reprodutível com um conjunto de dados do próprio pacote drc:
library(drc)
S.alba.m1 <- drm(DryMatter~Dose, Herbicide, data = S.alba, fct = LL.4())
plot(S.alba.m1)
plot(S.alba.m1, legend=FALSE)
respondida 12/02/18 às 18:02
Marcus Nunes
16,8mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
6
Com a função plot base, você teria que ordenar os dados antes:
plot(saldo,y)
lines(data$saldo[order(data$saldo)], default.glm$fitted[order(data$saldo)], type="l", col="red")
Com o gpplot2 você não precisa ordenar, só plotar x contra o ajuste.
library(ggplot2)
grafico <- ggplot(data, aes(x=saldo, y=y)) + geom_point() +
geom_line(...
respondida 19/02/14 às 13:24
Carlos Cinelli
16,7mil99 medalhas de ouro5757 medalhas de prata100100 medalhas de bronze
6
Se tu estiver usando os comandos básicos do R para fazer o gráfico (plot()), tu pode mudar o eixo x/y com o parâmetro xlim/ylim
x <- rnorm(100, 10, 2)
y <- rnorm(100, 100, 20)
plot(x, y)
plot(x, y, xlim = c(0, 120)) # Alterando somente o eixo X
plot(x, y, ylim = c(0, 120)) # Alterando somente o eixo Y
plot(x, y, xlim = c(0, 120), ylim = c(0, 120)) # ...
6
Por padrão, o R considera que sua plot cria quatro eixos:
eixo 1 (equivalente ao eixo x, com escala definida)
eixo 2 (equivalente ao eixo y, com escala definida)
eixo 3 (paralelo ao eixo x, sem escala definida)
eixo 4 (equivalente ao eixo y, sem escala definida)
Em um gráfico tradicional, estes eixos podem ser desligados através do argumento axes=FALSE:
...
respondida 12/02/18 às 22:08
Marcus Nunes
16,8mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
5
Neste caso você pode incluir mais um elemento ao seu gráfico especificando que a variável ind vai gerar diferentes facetas, isto é, facet_wrap(~ind):
ggplot(data=df, aes(x=df$m, y=df$X2, colour=ind))+
xlab('m') + ylab('Taxas')+
theme(legend.title=element_blank(), legend.position='top') +
ggtitle('.')+
geom_point()+ geom_line()+
geom_point(aes(x=...
respondida 29/12/15 às 10:19
Carlos Cinelli
16,7mil99 medalhas de ouro5757 medalhas de prata100100 medalhas de bronze
5
Se entendi bem o teu problema, basta retirar o sort do argumento y da função ggplot:
library(ggplot2)
library(reshape)
cultivar <- c("IB0094", "IB0094", "IB0094", "IB0094", "IB0094", "IB0094", "IB0095", "IB0095", "IB0095", "IB0095", "IB0095", "IB0095")
parametro <- c("CSDL", "SDPDV", "PODUR", "THRSH", "SDPRO", "SDLIP", "CSDL", "SDPDV", "...
respondida 27/08/16 às 19:23
Marcus Nunes
16,8mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
5
Você também pode usar a função plot
mod <- loess(Income ~ Education, data = Income)
Income <- transform(Income, Fitted = fitted(mod))
plot(Income ~ Education, data = Income, type = "p", col = "red",
cex = 1.25)
lines(Fitted ~ Education, data = Income, col = "blue")
with(Income, segments(Education, Income, Education, Fitted))
respondida 2/04/14 às 13:08
rowang
2.28333 medalhas de ouro1717 medalhas de prata2626 medalhas de bronze
5
Pode também usar a biblioteca lattice para isso.
library(lattice)
xyplot(y~x|w, data=dados)
respondida 20/02/14 às 17:35
rowang
2.28333 medalhas de ouro1717 medalhas de prata2626 medalhas de bronze
5
Uma outra maneira é usar a função curve.
curve(coef(modelo)[1]+coef(modelo)[2]*x,add=TRUE,col = "blue",lwd=2)
Uma vantagem dessa função é que ela também serve caso o modelo envolva componentes não lineares. Como no caso abaixo:
n=1000
x1 = rnorm(n)
y = 5 + 4*x1 + 2*x1^2 + rnorm(n)
modelo <- lm( y ~ x1 + I(x1^2) )
plot(y~x1)
curve(coef(modelo)[1]+coef(...
respondida 20/01/16 às 13:42
rowang
2.28333 medalhas de ouro1717 medalhas de prata2626 medalhas de bronze
5
Não pude usar seus dados mas aqui vai um exemplo:
set.seed(42)
x <- rnorm(200, 10)
hist(x)
Defina o limite desejado:
lim <- seq(from = 6.7, to = 13.7, by = 1)
> lim
> [1] 6.8 7.8 8.8 9.8 10.8 11.8 12.8
Faça o histograma usando o comando xaxt = 'n' para plotar sem o axis x, e então use axis() para adicionar os valores correspondentes com ...
5
Uma maneira de fazer isso é criando um vetor com a função seq. Como o nome sugere, a função seq cria uma sequência de números. Basta informar o valor inicial, o valor final e o incremento. No exemplo abaixo, eu crio uma sequência que começa em 30 e vai até 32, aumentando de 0.1 em 0.1:
seq(from=30, to=32, by=0.1)
[1] 30.0 30.1 30.2 30.3 30.4 30.5 30.6 30.7 ...
respondida 10/01/19 às 0:35
Marcus Nunes
16,8mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
5
O central no ggplot são sempre os seus dados. Seus dados estão em um formato numérico e, por isso, o ggplot acredita ser melhor usar uma escala contínua em X e fazer a divisão de tal forma que os intervalos que apareçam sejam de2.5 em 2.5.
Há várias formas de corrigir isso:
Explicitar o intervalo que você deseja mantendo a escala contínua;
Transformar os ...
respondida 13/04/20 às 17:55
Tomás Barcellos
5.52222 medalhas de ouro1010 medalhas de prata3535 medalhas de bronze
5
Em primeiro lugar, carregar os pacotes necessários e ler os dados mas desta vez vou ler com read.csv2, uma vez que já tem os valores de header = TRUE, dec = "," e sep = ";".
library(RColorBrewer)
library(pals)
dados <- read.csv2("datagraph.csv")
dados$Group <- factor(dados$Group)
dados$Colors <- factor(dados$Colors)
...
respondida 14/11/20 às 23:09
Rui Barradas
13,8mil22 medalhas de ouro99 medalhas de prata2020 medalhas de bronze
5
Segundo a secção Value de help("hnp), o objeto Graph16 é uma lista de classe "hnp". Estes objetos têm membros x, lower, upper, median e residuals, que são os vetores representados no gráfico. Primeiro tem que se criar um data.frame com esses vetores e depois traçar o gráfico.
library(ggplot2)
G16 <- with(Graph16, data.frame(x, lower, ...
respondida 11/02 às 16:06
Rui Barradas
13,8mil22 medalhas de ouro99 medalhas de prata2020 medalhas de bronze
4
É possível fazer com as funções base, colocando cores semi-transparentes:
h1<-hist(grupo1)
h2<- hist(grupo2)
plot(h1, col=rgb(0,0,1,1/4),
main = "Histogramas",
xlab = "x",
ylim =c(min(min(h1$counts), min(h2$counts)), max(max(h1$counts, max(h2$counts)))),
xlim=c(min(min(h1$breaks), min(h2$breaks)), max(max(h1$breaks, max(h2$breaks))...
respondida 21/02/14 às 3:33
Carlos Cinelli
16,7mil99 medalhas de ouro5757 medalhas de prata100100 medalhas de bronze
4
Uma "solução" parcial seria gerar um spline com muitos pontos (uns 100 por exemplo) que aí as cores teriam menor probabilidade de ficarem em lugar errado. Mas essa solução pode gastar muita memória se sua base de dados for grande e vai suavizar o gráfico. Ex:
df2 <- data.frame(spline(df$x, df$y, n = 100*nrow(df)))
df2$cat <- df2$y>0
ggplot(data = ...
respondida 19/03/14 às 17:19
Carlos Cinelli
16,7mil99 medalhas de ouro5757 medalhas de prata100100 medalhas de bronze
4
Utilize as funções expression e atop dentro do argumento main do plot:
plot(a, main=expression(atop("Curva da Vida dos Genes Fluxo Vida",
paste("Y = " , alpha, " + ", beta, "X", " + ", epsilon))))
respondida 26/11/16 às 23:30
Marcus Nunes
16,8mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
4
Tentativa de solução:
Passo 1: Gerar os dados
# pacotes
library(tidyverse)
library(mvtnorm)
# reprodutibilidade
set.seed(10)
# observações
N <- 1000
# lista de parâmetros
parms <- list(
a = list(mu = c(0, 0), sigma = matrix(c(4, 2, 2, 4), nrow = 2)),
b = list(mu = c(5, 5), sigma = matrix(c(4, -2, -2, 4), nrow = 2))
)
# cria base de dados
dados &...
4
Usando ggplot2:
library(ggplot2)
dados <- data.frame(x=x, y_original=compl$y, y_trunc=sample$y, OLS=pred.OLS, trunc=pred.trunc)
ggplot(dados, aes(x=x)) +
geom_point(aes(y=y_original), shape = 21, fill="white") +
geom_point(aes(y=y_trunc), shape = 21, fill="black") +
geom_line(aes(y=OLS), linetype="dashed") +
geom_line(aes(y=trunc)) +
labs(x="...
respondida 26/06/17 às 12:46
Marcus Nunes
16,8mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
4
O erro esta, provalvemente, em tenta plotar "Dias de chuva" antes de par(new = TRUE).
Além disso, depois de par(new = TRUE) você tem que criar um novo plot() para então plotar linhas com o lines().
Tentei modificar seu código sem seus dados, mas como Rafael Cunha destacou, é importante que nas próximas perguntas você sempre disponibilize uma parte dos dados ...
4
Para mim, a questão dos labels dos eixos é mais fácil de resolver utilizando o pacote ggplot2 para fazer o gráfico. Para isto, é necessário primeiro preparar os teus dados de modo que eles fiquem em três colunas:
sinal, com os valores de cada sinal, um após o outro
tempo, com os valores temporais para cada sinal, o que implica que esta coluna terá n valores,...
respondida 23/11/17 às 14:42
Marcus Nunes
16,8mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
4
O código abaixo usa dados novos, já que os dados originais não foram fornecidos na pergunta.
time <- 3:10
tq1_mean <- 3:10
sd <- sd(tq1_mean)
plot (time, tq1_mean, type ="p", col = "red", ylim=c(0, 15))
# desenha o traço vertical
segments(time,tq1_mean - sd, time, tq1_mean + sd)
# Define o tamanho dos traços horizontais
tamanho <- 0.1
# ...
respondida 15/01/19 às 12:42
Tomás Barcellos
5.52222 medalhas de ouro1010 medalhas de prata3535 medalhas de bronze
4
O ggplot2 se perde no teu gráfico com dois grupos porque, na realidade, tu tem duas variáveis de agrupamento para o teu problema: grupo (com os níveis A e B) e variable (com os níveis v1 a v5). Uma forma de resolver isso é criando uma terceira variável, que indique a interação entre elas. A função interaction faz isso perfeitamente e pode ser aplicada dentro ...
respondida 22/07/19 às 19:45
Marcus Nunes
16,8mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
Apenas as respostas wiki não pertencentes à comunidade mais votadas e de um tamanho mínimo se qualificam
Tags relacionadas
plot × 86r × 65
ggplot2 × 29
python × 14
regressão × 10
gráfico × 8
matplotlib × 5
funções × 3
graphics × 3
lattice × 3
python-3.x × 2
data.frame × 2
matlab × 2
histograma × 2
3d × 2
legendas × 2
lm × 2
gráfico-de-dispersão × 2
drc × 2
android × 1
linux × 1
python-2.7 × 1
datetime × 1
ubuntu × 1
modelagem × 1