Polygon

classic Classic list List threaded Threaded
6 messages Options
Reply | Threaded
Open this post in threaded view
|

Polygon

Steven Yen
Can someone help me with polygon. The following codes are self-runnable
and mark a shaded area under the standard normal curve in the x-range
(-3,-1).
Is there a way to also mark the area in (1,3), at the same time.
That is, I want shaded areas in both tails. Thank you...

===
# Create data for the area to shade
cord.x <- c(-3,seq(-3,-1,0.01),-1)
cord.y <- c(0,dnorm(seq(-3,-1,0.01)),0)

# Make a curve
curve(dnorm(x,0,1), xlim=c(-3,3), main='Standard Normal')

# Add the shaded area.
polygon(cord.x,cord.y,col='skyblue')

--
[hidden email] (S.T. Yen)


        [[alternative HTML version deleted]]

______________________________________________
[hidden email] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Reply | Threaded
Open this post in threaded view
|

Re: Polygon

Rui Barradas
Hello,

Continue with


polygon(-rev(cord.x), rev(cord.y), col = 'skyblue')


Hope this helps,

Rui Barradas

Às 17:25 de 02/10/2018, Steven Yen escreveu:

> Can someone help me with polygon. The following codes are self-runnable
> and mark a shaded area under the standard normal curve in the x-range
> (-3,-1).
> Is there a way to also mark the area in (1,3), at the same time.
> That is, I want shaded areas in both tails. Thank you...
>
> ===
> # Create data for the area to shade
> cord.x <- c(-3,seq(-3,-1,0.01),-1)
> cord.y <- c(0,dnorm(seq(-3,-1,0.01)),0)
>
> # Make a curve
> curve(dnorm(x,0,1), xlim=c(-3,3), main='Standard Normal')
>
> # Add the shaded area.
> polygon(cord.x,cord.y,col='skyblue')
>

______________________________________________
[hidden email] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Reply | Threaded
Open this post in threaded view
|

Re: Polygon

Steven Yen
Great. Thanks! It did wonders.
1. Is there a way to suppress the obvious tick stops (-3,-2,-1,0,1,2,3)
and mark only the ticks -1.96 and 1.96.
2. Better yet, to draw vertical lines at x = -1.96 and x = 1.96.
Thanks.
Steven

On 10/3/2018 12:51 AM, Rui Barradas wrote:

> Hello,
>
> Continue with
>
>
> polygon(-rev(cord.x), rev(cord.y), col = 'skyblue')
>
>
> Hope this helps,
>
> Rui Barradas
>
> Às 17:25 de 02/10/2018, Steven Yen escreveu:
>> Can someone help me with polygon. The following codes are self-runnable
>> and mark a shaded area under the standard normal curve in the x-range
>> (-3,-1).
>> Is there a way to also mark the area in (1,3), at the same time.
>> That is, I want shaded areas in both tails. Thank you...
>>
>> ===
>> # Create data for the area to shade
>> cord.x <- c(-3,seq(-3,-1,0.01),-1)
>> cord.y <- c(0,dnorm(seq(-3,-1,0.01)),0)
>>
>> # Make a curve
>> curve(dnorm(x,0,1), xlim=c(-3,3), main='Standard Normal')
>>
>> # Add the shaded area.
>> polygon(cord.x,cord.y,col='skyblue')
>>
>

--
[hidden email] (S.T. Yen)


        [[alternative HTML version deleted]]

______________________________________________
[hidden email] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Reply | Threaded
Open this post in threaded view
|

Re: Polygon

David Winsemius

> On Oct 2, 2018, at 5:50 PM, Steven Yen <[hidden email]> wrote:
>
> Great. Thanks! It did wonders.
> 1. Is there a way to suppress the obvious tick stops (-3,-2,-1,0,1,2,3)
> and mark only the ticks -1.96 and 1.96.
> 2. Better yet, to draw vertical lines at x = -1.96 and x = 1.96.
> Thanks.

Read ?plot.default

Then add xaxt="n" to the arguments to curve, ... and afterwards:

axis( 1, at=c(-1.96, 1.96),lab=c(-1.96, 1.96) )
abline( v= c(-1.96, 1.96) )

--

> Steven
>
> On 10/3/2018 12:51 AM, Rui Barradas wrote:
>> Hello,
>>
>> Continue with
>>
>>
>> polygon(-rev(cord.x), rev(cord.y), col = 'skyblue')
>>
>>
>> Hope this helps,
>>
>> Rui Barradas
>>
>> Às 17:25 de 02/10/2018, Steven Yen escreveu:
>>> Can someone help me with polygon. The following codes are self-runnable
>>> and mark a shaded area under the standard normal curve in the x-range
>>> (-3,-1).
>>> Is there a way to also mark the area in (1,3), at the same time.
>>> That is, I want shaded areas in both tails. Thank you...
>>>
>>> ===
>>> # Create data for the area to shade
>>> cord.x <- c(-3,seq(-3,-1,0.01),-1)
>>> cord.y <- c(0,dnorm(seq(-3,-1,0.01)),0)
>>>
>>> # Make a curve
>>> curve(dnorm(x,0,1), xlim=c(-3,3), main='Standard Normal')
>>>
>>> # Add the shaded area.
>>> polygon(cord.x,cord.y,col='skyblue')
>>>
>>
>
> --
> [hidden email] (S.T. Yen)
>
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> [hidden email] mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

David Winsemius
Alameda, CA, USA

'Any technology distinguishable from magic is insufficiently advanced.'   -Gehm's Corollary to Clarke's Third Law

______________________________________________
[hidden email] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Reply | Threaded
Open this post in threaded view
|

Re: Polygon

Steven Yen
Thanks!!! It did wonders.
Steven

On 10/3/2018 9:39 AM, David Winsemius wrote:

>> On Oct 2, 2018, at 5:50 PM, Steven Yen <[hidden email]> wrote:
>>
>> Great. Thanks! It did wonders.
>> 1. Is there a way to suppress the obvious tick stops (-3,-2,-1,0,1,2,3)
>> and mark only the ticks -1.96 and 1.96.
>> 2. Better yet, to draw vertical lines at x = -1.96 and x = 1.96.
>> Thanks.
> Read ?plot.default
>
> Then add xaxt="n" to the arguments to curve, ... and afterwards:
>
> axis( 1, at=c(-1.96, 1.96),lab=c(-1.96, 1.96) )
> abline( v= c(-1.96, 1.96) )
>
> --
>> Steven
>>
>> On 10/3/2018 12:51 AM, Rui Barradas wrote:
>>> Hello,
>>>
>>> Continue with
>>>
>>>
>>> polygon(-rev(cord.x), rev(cord.y), col = 'skyblue')
>>>
>>>
>>> Hope this helps,
>>>
>>> Rui Barradas
>>>
>>> Às 17:25 de 02/10/2018, Steven Yen escreveu:
>>>> Can someone help me with polygon. The following codes are self-runnable
>>>> and mark a shaded area under the standard normal curve in the x-range
>>>> (-3,-1).
>>>> Is there a way to also mark the area in (1,3), at the same time.
>>>> That is, I want shaded areas in both tails. Thank you...
>>>>
>>>> ===
>>>> # Create data for the area to shade
>>>> cord.x <- c(-3,seq(-3,-1,0.01),-1)
>>>> cord.y <- c(0,dnorm(seq(-3,-1,0.01)),0)
>>>>
>>>> # Make a curve
>>>> curve(dnorm(x,0,1), xlim=c(-3,3), main='Standard Normal')
>>>>
>>>> # Add the shaded area.
>>>> polygon(cord.x,cord.y,col='skyblue')
>>>>
>> --
>> [hidden email] (S.T. Yen)
>>
>>
>> [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> [hidden email] mailing list -- To UNSUBSCRIBE and more, see
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
> David Winsemius
> Alameda, CA, USA
>
> 'Any technology distinguishable from magic is insufficiently advanced.'   -Gehm's Corollary to Clarke's Third Law
>
>
>
>
>
>

--
[hidden email] (S.T. Yen)


        [[alternative HTML version deleted]]

______________________________________________
[hidden email] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Reply | Threaded
Open this post in threaded view
|

Re: Polygon

Rui Barradas
Hello,

If you change cord.x and cord.y to


cord.x <- c(-3, seq(-3, -1.96, 0.01), -1.96)
cord.y <- c(0, dnorm(seq(-3, -1.96, 0.01)), 0)


then you will not need the call to abline.

Hope this helps,

Rui Barradas

Às 02:50 de 03/10/2018, Steven Yen escreveu:

> Thanks!!! It did wonders.
> Steven
>
> On 10/3/2018 9:39 AM, David Winsemius wrote:
>>> On Oct 2, 2018, at 5:50 PM, Steven Yen<[hidden email]>  wrote:
>>>
>>> Great. Thanks! It did wonders.
>>> 1. Is there a way to suppress the obvious tick stops (-3,-2,-1,0,1,2,3)
>>> and mark only the ticks -1.96 and 1.96.
>>> 2. Better yet, to draw vertical lines at x = -1.96 and x = 1.96.
>>> Thanks.
>> Read ?plot.default
>>
>> Then add xaxt="n" to the arguments to curve, ... and afterwards:
>>
>> axis( 1, at=c(-1.96, 1.96),lab=c(-1.96, 1.96) )
>> abline( v= c(-1.96, 1.96) )
>>
>> --
>>> Steven
>>>
>>> On 10/3/2018 12:51 AM, Rui Barradas wrote:
>>>> Hello,
>>>>
>>>> Continue with
>>>>
>>>>
>>>> polygon(-rev(cord.x), rev(cord.y), col = 'skyblue')
>>>>
>>>>
>>>> Hope this helps,
>>>>
>>>> Rui Barradas
>>>>
>>>> Às 17:25 de 02/10/2018, Steven Yen escreveu:
>>>>> Can someone help me with polygon. The following codes are self-runnable
>>>>> and mark a shaded area under the standard normal curve in the x-range
>>>>> (-3,-1).
>>>>> Is there a way to also mark the area in (1,3), at the same time.
>>>>> That is, I want shaded areas in both tails. Thank you...
>>>>>
>>>>> ===
>>>>> # Create data for the area to shade
>>>>> cord.x <- c(-3,seq(-3,-1,0.01),-1)
>>>>> cord.y <- c(0,dnorm(seq(-3,-1,0.01)),0)
>>>>>
>>>>> # Make a curve
>>>>> curve(dnorm(x,0,1), xlim=c(-3,3), main='Standard Normal')
>>>>>
>>>>> # Add the shaded area.
>>>>> polygon(cord.x,cord.y,col='skyblue')
>>>>>
>>> --
>>> [hidden email]  (S.T. Yen)
>>>
>>>
>>> [[alternative HTML version deleted]]
>>>
>>> ______________________________________________
>>> [hidden email]  mailing list -- To UNSUBSCRIBE and more, see
>>> https://stat.ethz.ch/mailman/listinfo/r-help
>>> PLEASE do read the posting guidehttp://www.R-project.org/posting-guide.html
>>> and provide commented, minimal, self-contained, reproducible code.
>> David Winsemius
>> Alameda, CA, USA
>>
>> 'Any technology distinguishable from magic is insufficiently advanced.'   -Gehm's Corollary to Clarke's Third Law
>>
>>
>>
>>
>>
>>
>
> --
> [hidden email]  (S.T. Yen)
>

______________________________________________
[hidden email] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.