<?xml version="1.0"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="en">
	<id>https://wiki.taichimd.us/index.php?action=history&amp;feed=atom&amp;title=File%3APca_ggplot2.png</id>
	<title>File:Pca ggplot2.png - Revision history</title>
	<link rel="self" type="application/atom+xml" href="https://wiki.taichimd.us/index.php?action=history&amp;feed=atom&amp;title=File%3APca_ggplot2.png"/>
	<link rel="alternate" type="text/html" href="https://wiki.taichimd.us/index.php?title=File:Pca_ggplot2.png&amp;action=history"/>
	<updated>2026-04-08T14:32:11Z</updated>
	<subtitle>Revision history for this page on the wiki</subtitle>
	<generator>MediaWiki 1.43.6</generator>
	<entry>
		<id>https://wiki.taichimd.us/index.php?title=File:Pca_ggplot2.png&amp;diff=39492&amp;oldid=prev</id>
		<title>Brb: &lt;syntaxhighlight lang=&#039;r&#039;&gt;
df &lt;- iris[, 1:4]  # exclude &quot;Species&quot; column

pca_res &lt;- prcomp(df, scale = TRUE)

ggplot(iris, 
       aes(x = pca_res$x[,1], 
           y = pca_res$x[,2], 
           color = Species)) +
  geom_point() +
  stat_ellipse()
&lt;/syntaxhighlight&gt;</title>
		<link rel="alternate" type="text/html" href="https://wiki.taichimd.us/index.php?title=File:Pca_ggplot2.png&amp;diff=39492&amp;oldid=prev"/>
		<updated>2024-05-23T13:58:50Z</updated>

		<summary type="html">&lt;p&gt;&amp;lt;syntaxhighlight lang=&amp;#039;r&amp;#039;&amp;gt; df &amp;lt;- iris[, 1:4]  # exclude &amp;quot;Species&amp;quot; column  pca_res &amp;lt;- prcomp(df, scale = TRUE)  ggplot(iris,         aes(x = pca_res$x[,1],             y = pca_res$x[,2],             color = Species)) +   geom_point() +   stat_ellipse() &amp;lt;/syntaxhighlight&amp;gt;&lt;/p&gt;
&lt;p&gt;&lt;b&gt;New page&lt;/b&gt;&lt;/p&gt;&lt;div&gt;== Summary ==&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;#039;r&amp;#039;&amp;gt;&lt;br /&gt;
df &amp;lt;- iris[, 1:4]  # exclude &amp;quot;Species&amp;quot; column&lt;br /&gt;
&lt;br /&gt;
pca_res &amp;lt;- prcomp(df, scale = TRUE)&lt;br /&gt;
&lt;br /&gt;
ggplot(iris, &lt;br /&gt;
       aes(x = pca_res$x[,1], &lt;br /&gt;
           y = pca_res$x[,2], &lt;br /&gt;
           color = Species)) +&lt;br /&gt;
  geom_point() +&lt;br /&gt;
  stat_ellipse()&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;/div&gt;</summary>
		<author><name>Brb</name></author>
	</entry>
</feed>