堆積條形圖

Question

我正在繪製大型數據集的堆積條形圖，它工作正常。但在我的情節中，有一個額外的欄被命名爲「NA」。我不知道什麼是錯的，所以請幫助我。而且我也想改變酒吧的顏色，並想讓它更可視化。是否有任何方法來改變光譜顏色模式，就像法律價值的顏色比黑暗更光。我想要顏色模式爲「白色到深藍色」或任何黑暗的陰影。我的數據集，代碼和情節是如下：

Degree No.of.vertices Articulationpoint 
1 2392 0 
2 1439 140 
3 981 104 
4 698 88 
5 579 73 
6 445 77 
7 366 74 
8 272 55 
9 255 39 
10 226 49 
11 179 46 
12 146 32 
13 121 30 
14 124 34 
15 95 25 
16 88 28 
17 96 39 
18 70 17 
19 81 34 
20 64 20 
21 59 22 
22 45 20 
23 41 19 
24 38 17 
25 28 14 
26 30 18 
27 29 16 
28 28 13 
29 22 9 
30 18 11 
31 16 6 
32 15 9 
33 17 11 
34 14 5 
35 25 11 
36 14 6 
37 8 7 
38 19 10 
39 9 3 
40 14 6 
41 9 2 
42 9 4 
43 10 6 
44 7 5 
45 8 4 
46 3 2 
47 5 4 
48 10 8 
49 8 4 
50 3 1 
51 5 5 
52 5 5 
53 8 6 
54 4 2 
55 3 3 
56 3 2 
57 6 5 
58 2 2 
59 6 4 
60 2 2 
61 5 4 
62 5 2 
63 3 3 
64 5 4 
65 1 0 
66 3 2 
67 3 2 
68 1 1 
69 2 0 
70 6 6 
71 2 0 
72 4 4 
73 5 5 
74 7 6 
75 1 1 
76 1 1 
77 2 2 
79 1 1 
81 1 0 
82 1 1 
83 2 2 
84 4 2 
85 2 2 
86 1 0 
87 1 1 
88 2 2 
89 2 2 
90 2 2 
91 1 1 
92 1 1 
96 3 3 
97 1 1 
100 1 1 
101 2 1 
102 2 2 
103 1 1 
104 1 0 
106 1 1 
108 2 1 
109 1 1 
110 1 1 
112 1 1 
113 2 2 
115 2 1 
116 1 1 
117 2 2 
119 1 1 
122 1 0 
124 1 1 
127 2 1 
128 1 1 
130 1 1 
134 2 2 
144 1 1 
145 1 1 
147 1 1 
150 1 1 
151 1 1 
152 2 2 
154 1 1 
160 1 0 
161 1 1 
165 1 1 
168 1 1 
172 1 1 
180 1 1 
188 1 1 
193 1 1 
198 1 1 
207 1 1 
209 1 1 
246 1 1 
269 1 1 

我的代碼是：

d <- read.csv("Data.csv");d 
df <- data.frame(d);df 
df$Degree <- cut(df$Degree,c(0,1,2,3,4,5,6,7,8,9,10,25,50,75,100,134)) 
library(reshape2) 
library(ggplot2) 
ggplot(df, aes(x = Degree, y = No.of.vertices, fill = Articulationpoint)) + 
geom_bar(stat = "identity", position = "stack", colour = "black") 

導致：

在我的圖我想白色背景不是灰色的框。而且我也想在4 * 4框架中適合圖形，所以請幫助我。

請幫我 在此先感謝。

Answer 1

使用您的數據和df <- read.table(textConnection("your data")我做了一些清理（可能使用其他參數來read.table，而不是）。

df <- as.data.frame(df) 
colnames(df) <- c("Degree", "No.of.vertices", "Articulationpoint") 
df$Degree <- as.numeric(df$Degree) 
df$No.of.vertices <- as.numeric(df$No.of.vertices) 

df$Degree <- cut(df$Degree,c(0,1,2,3,4,5,6,7,8,9,10,25,50,75,100,134)) 

然後跑到你的陰謀代碼倒是theme_bw()：

p < - ggplot（DF，AES（X =度，Y = No.of.vertices，填寫= Articulationpoint））+ geom_bar（ （）= theme_bw（）

這消除了灰色的背景，但留下了一個巨大的傳奇。我不確定你的結果與我的不同。

你可以設置你的大小尺寸如下：

ggsave(p, filename = "your plot name.png", width = 4, height = 4, unit = "in")