added ignore a file

Author: duncantl

.gitignore

@@ -0,0 +1,2 @@
+googleVis_pkg
+.Rhistory

Networks/ggvisFunctionNetwork.R

@@ -1,7 +1,6 @@
 source("utilFuns.R")
 
 
-if(FALSE) {
  g = getFunctionNetwork("ggvis")
 
  library(graph)
@@ -28,12 +27,16 @@ if(FALSE) {
  notCalled = setdiff(notCalled, c("ggvis", "mark", grep("^(layer_|knit_print)", names(g), value = TRUE)))
  cg = g[ - match(notCalled, names(g))]
  cgr = graphNEL(names(cg), cg, "directed")
+
+
  icgr = igraph.from.graphNEL(cgr)
  pos = plot(icgr, vertex.size = .75, edge.arrow.size = .4, layout = layout.kamada.kawai, vertex.label.dist = .25)
 
 
  # Perhaps display the not-called functions on the sides of the plot.
  # can use par()$usr to get coordinates.
 
+ # Exercise: How do we igraph to plot these for us?
+
  # Rgraphviz
-}
+

Topics.html

@@ -10,23 +10,72 @@ <h1></h1>
   <dt>
   <li>Networks/Graphs - nodes and edges</li>
   <dd>
+    <li> igraph
     <ul>
       <li><a href="Networks/ggvisFunctionNetwork.R" >Networks/ggvisFunctionNetwork.R</a></li>
-   </ul>
+    </ul>
+      </li>
+   
+    <ul>
+      <li> <a href="http://igraph.org/r/doc/layout.html" >http://igraph.org/r/doc/layout.html</a></li>   
+      <li><a href="http://igraph.org/r/doc/plot.common.html" >http://igraph.org/r/doc/plot.common.html</a></li>
+    </ul>
+
+      <li>Rgraphviz</li>    
+    
 
   <dt>
-   <li>Maps</li>
+  <li>Maps</li>
   <dd>
+    Two approaches. C
+    <li>maps</li>
+    <li>rworldmap</li>
+    <li>RgoogleMaps</li>
+    <li>ggmap</li>
+    <li>OpenStreetMap</li>
+    
+    <li>leafletR</li>
+    <ul>Google Earth and KML
+      <ul>
+        <li>plotKML</li>
+        <li>RKML</li>
+       </ul>
+    </ul>
+</dl>
 
+
+<h2>Interaction and Animation</h2>
+
+<dl>
   <dt>
-  <li>Interaction and Animation</li>
+  <li>Simple Animation</li>
   <dd>
-    
+    <ul>
+      <li>animation package</li>
+    </ul>
+
+
+  <dt>
+   <li>Basics of HTML, CSS, JavaScript</li>
+  <dd>
+    <ul>
+      <li><a href="JSEg/jsEg.html" >jsEg.html</a></li>
+      <li><a href="JSEg/jsAutoEg.html" >jsAutoEg.html</a></li>      
+   </ul>
+
+
+  <dt>
+    <li>D3 - Data Driven Documents</li>
+  <dd>
+    <ul>
+      <li><a href="https://github.com/mbostock/d3/wiki/Gallery" >Gallery</a></li>
+</ul>
 </dl>
 
 
+
 <hr>
 <address><a href="http://www.stat.ucdavis.edu/~duncan">Duncan Temple Lang</a>
 <a href=mailto:duncan@r-project.org>&lt;duncan@r-project.org&gt;</a></address>
-<!-- hhmts start --> Last modified: Fri Apr 24 20:11:08 PDT 2015 <!-- hhmts end -->
+<!-- hhmts start --> Last modified: Sat Apr 25 04:39:12 PDT 2015 <!-- hhmts end -->
 </body> </html>

rCharts/maps.R

@@ -0,0 +1,25 @@
+library(rCharts)
+
+
+load("../shinyHousePrices/housing.rda")
+
+map <- Leaflet$new()
+map$setView(c(37.8717, -122.27), zoom = 8)
+countyCoords =
+    list(Sonoma = c(38.288, -122.4589),
+         Napa = c(38.3047, -122.2989),
+         Alameda = c(37.7561, -122.2744),
+         "Contra Costa" = c(37.9300, -121.9500),
+         "San Mateo" = c(37.5542, -122.3131),
+         "Marin" = c(38.0400, -122.7400),
+         "San Francisco" = c(37.7833, -122.4167),
+         Solano = c(38.270, -121.9400),
+         "Santa Clara" = c(37.3600, -121.9700))
+
+invisible(mapply(function(id, coords, pricePerSqft)
+                   map$marker(coords, bindPopup = sprintf("<p>%s: price/square foott = %d</p>", id, pricePerSqft)),
+                 names(countyCoords), countyCoords,
+                 as.integer(by(housing, housing$county, function(d) median(d$price/d$bsqft, na.rm = TRUE)))))
+
+#map$print("chart7") # for generate the file
+print(map)   # need to explicitly print it in case we source() this file.