d=read.table("D:\作业\模式识别与机器学习\project1\bank-additional\bank-additional\bank-additional-full.csv",header=TRUE,sep=";")
d=read.table("D:\\作业\\模式识别与机器学习\\project1\\bank-additional\\bank-additional\\bank-additional-full.csv",header=TRUE,sep=";")
View(d)
View(d)
write.csv(d, 'D:\\作业\\模式识别与机器学习\\project1\\bank-additional\\bank-additional-full.csv', row.names = F)
View(d)
d=read.table("D:\作业\模式识别与机器学习\project1\bank-additional\bank-additional\bank-additional.csv",header=TRUE,sep=";")
d=read.table("D:\\作业\\模式识别与机器学习\\project1\\bank-additional\\bank-additional\\bank-additional.csv",header=TRUE,sep=";")
write.csv(d, 'D:\\作业\\模式识别与机器学习\\project1\\bank-additional\\bank-additional.csv', row.names = F)
log(0.08, base = 0.618)
setwd('D:\\自动化所\\bayesian\\DLSM\\back\\dlsm_directed_cluster_no_eta_back')
library(ggplot2)
library(latex2exp)
mytheme <- theme_minimal()+
theme(
panel.grid.major.y=element_blank(),
panel.grid.minor.y=element_blank(),
panel.grid.major.x=element_blank(),
panel.grid.minor.x=element_blank(),
axis.line.y=element_line(linetype=1,color='grey'),
axis.line.x=element_line(linetype=1,color='grey'),
axis.ticks = element_line(linetype=2,color='grey'),
legend.title = element_blank(),
legend.background = element_rect(fill = "gray90", size=0.5, color='white'),
legend.text=element_text(size=20),
legend.position = c(0.8, 0.8),
axis.text = element_text(size = 10),
axis.title.y = element_text(size = 20),
axis.title.x = element_blank()
)
gamma = scan('data/gamma.txt')
outdegree = scan('data/outdegree.txt')
dat1 = data.frame(x = c(gamma / 5000, outdegree), label = factor(c(rep(1, length(gamma)), rep(2, length(outdegree)))))
ggplot(dat1, aes(x = x)) +
geom_density(data = dat1, aes(color = factor(label), fill = factor(label)), alpha = 0.3, bw = 20) +
scale_fill_discrete(labels = c(expression(1/gamma), 'out-degree')) +
scale_colour_discrete(labels = c(expression(1/gamma), 'out-degree')) +
mytheme
mytheme <- theme_minimal()+
theme(
panel.grid.major.y=element_blank(),
panel.grid.minor.y=element_blank(),
panel.grid.major.x=element_blank(),
panel.grid.minor.x=element_blank(),
axis.line.y=element_line(linetype=1,color='grey'),
axis.line.x=element_line(linetype=1,color='grey'),
axis.ticks = element_line(linetype=2,color='grey'),
legend.title = element_blank(),
legend.background = element_rect(fill = "gray90", size=0.5, color='white'),
legend.text=element_text(size=20),
legend.position = c(0.8, 0.8),
legend.direction = "horizontal",
axis.text = element_text(size = 10),
axis.title.y = element_text(size = 15),
axis.title.x = element_blank()
)
ggplot(dat1, aes(x = x)) +
geom_density(data = dat1, aes(color = factor(label), fill = factor(label)), alpha = 0.3, bw = 20) +
scale_fill_discrete(labels = c(expression(1/gamma), 'out-degree')) +
scale_colour_discrete(labels = c(expression(1/gamma), 'out-degree')) +
mytheme
ggplot(dat1, aes(x = x)) +
geom_density(data = dat1, aes(color = factor(label), fill = factor(label)), alpha = 0.3, bw = 20) +
scale_fill_discrete(labels = c(expression(paste0(1/gamma, '  ')), 'out-degree')) +
scale_colour_discrete(labels = c(expression(1/gamma), 'out-degree')) +
mytheme
ggplot(dat1, aes(x = x)) +
geom_density(data = dat1, aes(color = factor(label), fill = factor(label)), alpha = 0.3, bw = 20) +
scale_fill_discrete(labels = c(expression(paste0(1/gamma, '     ')), 'out-degree')) +
scale_colour_discrete(labels = c(expression(paste0(1/gamma, '     ')), 'out-degree')) +
mytheme
ggplot(dat1, aes(x = x)) +
geom_density(data = dat1, aes(color = factor(label), fill = factor(label)), alpha = 0.3, bw = 20) +
scale_fill_discrete(labels = c(expression(1/gamma), 'out-degree')) +
scale_colour_discrete(labels = c(expression(1/gamma), 'out-degree')) +
mytheme
ggsave('fig//gamma.pdf', width = 5, height = 4)
mytheme <- theme_minimal()+
theme(
panel.grid.major.y=element_blank(),
panel.grid.minor.y=element_blank(),
panel.grid.major.x=element_blank(),
panel.grid.minor.x=element_blank(),
axis.line.y=element_line(linetype=1,color='grey'),
axis.line.x=element_line(linetype=1,color='grey'),
axis.ticks = element_line(linetype=2,color='grey'),
legend.title = element_blank(),
legend.background = element_rect(fill = "gray90", size=0.5, color='white'),
legend.text=element_text(size=20),
legend.position = c(0.6, 0.8),
legend.direction = "horizontal",
axis.text = element_text(size = 10),
axis.title.y = element_text(size = 15),
axis.title.x = element_blank()
)
ggplot(dat1, aes(x = x)) +
geom_density(data = dat1, aes(color = factor(label), fill = factor(label)), alpha = 0.3, bw = 20) +
scale_fill_discrete(labels = c(expression(1/gamma), 'out-degree')) +
scale_colour_discrete(labels = c(expression(1/gamma), 'out-degree')) +
mytheme
ggsave('fig//gamma.pdf', width = 5, height = 4)
mytheme <- theme_minimal()+
theme(
panel.grid.major.y=element_blank(),
panel.grid.minor.y=element_blank(),
panel.grid.major.x=element_blank(),
panel.grid.minor.x=element_blank(),
axis.line.y=element_line(linetype=1,color='grey'),
axis.line.x=element_line(linetype=1,color='grey'),
axis.ticks = element_line(linetype=2,color='grey'),
legend.title = element_blank(),
legend.background = element_rect(fill = "gray90", size=0.5, color='white'),
legend.text=element_text(size=15),
legend.position = c(0.7, 0.8),
legend.direction = "horizontal",
axis.text = element_text(size = 10),
axis.title.y = element_text(size = 12),
axis.title.x = element_blank()
)
ggplot(dat1, aes(x = x)) +
geom_density(data = dat1, aes(color = factor(label), fill = factor(label)), alpha = 0.3, bw = 20) +
scale_fill_discrete(labels = c(expression(1/gamma), 'out-degree')) +
scale_colour_discrete(labels = c(expression(1/gamma), 'out-degree')) +
mytheme
ggsave('fig//gamma.pdf', width = 5, height = 4)
ggsave('fig//gamma.pdf', width = 5, height = 4)
delta = scan('data/delta.txt')
indegree = scan('data/indegree.txt')
dat2 = data.frame(x = c(delta, indegree), label = factor(c(rep(1, length(delta)), rep(2, length(indegree)))))
ggplot(dat2, aes(x = x)) +
geom_density(data = dat2, aes(color = factor(label), fill = factor(label)), alpha = 0.3, bw = 20) +
scale_fill_discrete(labels = c(expression(1/delta), 'in-degree')) +
scale_colour_discrete(labels = c(expression(1/delta), 'in-degree')) +
mytheme
ggsave('fig//delta.pdf', width = 5, height = 4)
