wineApps/.Rhistory at master · UniIceCream/wineApps · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
m.fw <- read.csv('http://people.fas.harvard.edu/~matthewklau/data/wine_food.csv')
m.fw
m.fw <- read.csv('http://people.fas.harvard.edu/~matthewklau/data/wine_food.csv')
m.fw
m.fw <- read.csv('http://people.fas.harvard.edu/~matthewklau/data/wine_food.csv')
m.fw
m.fw <- read.csv('http://people.fas.harvard.edu/~matthewklau/data/wine_food.csv')
m.fw
library(bipartite)
install.packages('bipartite')
library(bipartite)
plotweb(m.fw)
plot(1:10,col='paleyellow')
plot(1:10,col='lightyellow')
plot(1:10,col='lightgreen')
library(bipartite)
m.fw <- read.csv('http://people.fas.harvard.edu/~matthewklau/data/wine_food.csv')
plotweb(m.fw)
plotweb(m.fw,method='original')
plotweb(m.fw,method='normal')
plotweb(m.fw,method='normal')
?plotweb
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','lightred','brickred','darkred','brown')
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','red','brickred','darkred','brown')
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','red','brick','darkred','brown')
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','red','ruby','darkred','brown')
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','pink','red','darkred','brown')
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','pink','red','darkred','darkbrown')
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','pink','red','darkred','black')
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','pink','red','darkred','lightgreen')
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','pink','red','darkred','lightgreen')
wine.col <- c('lightyellow','yellow','gold','lightblue','pink','red','darkred','bloodred')
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','pink','red','darkred','deepred')
plotweb(m.fw,method='normal',col.low=wine.col)
wine.col <- c('lightyellow','yellow','gold','lightblue','pink','red','darkred','black')
plotweb(m.fw,method='normal',col.low=wine.col)
?plotweb
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low='none')
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col)
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,
   interaction.col=wine.col)
?plotweb
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,
   col.interaction=wine.col)
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,
   col.interaction=wine.col,col.interaction.bor=wine.col)
?plotweb
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,
   col.interaction=wine.col,bor.col.interaction=wine.col)
plotweb(m.fw,method='normal',edge.lwd=0.5,col.low=wine.col,bor.col.low=wine.col,col.interaction=wine.col,bor.col.interaction=wine.col)
?plotweb
plotweb(m.fw,method='cca',edge.lwd=0.5,col.low=wine.col,bor.col.low=wine.col,col.interaction=wine.col,bor.col.interaction=wine.col)
plotweb(m.fw/2,method='cca',col.low=wine.col,bor.col.low=wine.col,col.interaction=wine.col,bor.col.interaction=wine.col)
plotweb(m.fw,method='cca',col.low=wine.col,bor.col.low=wine.col,col.interaction=wine.col,bor.col.interaction=wine.col)
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,col.interaction=wine.col,bor.col.interaction=wine.col)
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,col.interaction=wine.col,bor.col.interaction=wine.col,col.high='white')
food.col <- c('green','lightbrown','tan','brown','white','blue','darkblue','white','red','brown','grey')
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,col.interaction=wine.col,bor.col.interaction=wine.col,col.high=food.col)
food.col <- c('green','orange','tan','brown','white','blue','darkblue','white','red','brown','grey')
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,col.interaction=wine.col,bor.col.interaction=wine.col,col.high=food.col)
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,col.interaction=wine.col,bor.col.interaction=wine.col,col.high=food.col,bor.col.high=food.col)
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,col.interaction=c(wine.col),bor.col.interaction=wine.col,col.high=food.col,bor.col.high=food.col)
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,col.interaction=c(wine.col,food.col),bor.col.interaction=c(wine.col,food.col),col.high=food.col,bor.col.high=food.col)
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,col.interaction='lightgrey',col.high=food.col,bor.col.high=food.col)
plotweb(m.fw,method='normal',col.low=wine.col,bor.col.low=wine.col,col.interaction='lightgrey',bor.col.interaction='lightgrey',col.high=food.col,bor.col.high=food.col)
plotweb(m.fw,method='cca',col.low=wine.col,bor.col.low=wine.col,col.interaction='lightgrey',bor.col.interaction='lightgrey',col.high=food.col,bor.col.high=food.col)
runI()
run()
library(rmarkdown)
run()
getwd()
setwd('src')
dir()
run()
library(bipartite)
m.fw <- read.csv('http://people.fas.harvard.edu/~matthewklau/data/wine_food.csv')
wine.col <- c('lightyellow','yellow','gold','lightblue','pink','red','darkred','black')
food.col <- c('green','orange','tan','brown','white','blue','darkblue','white','red','brown','grey')
selectInput('Food or Wine','',c("All",rownames(m.fw),colnames(m.fw)))
m <- m.fw
if (input$'Food or Wine' == 'All'){
   m <- m.fw
}else if (input$'Food or Wine' %in% colnames(m)){
   m[,colnames(m) == input$'Food or Wine'] <- m.fw[,colnames(m.fw) == input$'Food or Wine']
}else{
   m[rownames(m) == input$'Food or Wine',] <- m.fw[rownames(m.fw) == input$'Food or Wine',]
}
?selectInput
run()
getwd()
dir()
run()
run()
colnames(m)
q()
n