小编use*_*821的帖子

我正在尝试创建一个美国的等值区域地图,其默认颜色从灰色变为白色.

我有48个状态中的18个的记录,并且代码用于按值着色,但对于那些我没有记录的状态,状态是灰色的.我希望他们是白人.

如何更改颜色？

library(maps)
library(plyr)
library(ggplot2)
records1<-read.csv('E:/My Documents/records_by_state.csv')
records<-data.frame(state=tolower(rownames(records1)), records1)
head(records)
all_states<-map_data("state")
head(all_states)
record_map<-merge(all_states, records, by.x="region", by.y="state.name")
record_map<-arrange(record_map, group, order)
head(record_map)

p<- ggplot()

p<- p + geom_polygon(data=record_map, aes(x=long, y=lat, group=group,    fill=record_map$Records), colour="black"
         )+ scale_fill_continuous(low="thistle2", high="darkred", guide="colorbar")
P1 <- p + theme_bw() +labs(fill= "Records by State"
                    , title= "By State", x="", y="")
P1 + scale_y_continuous(breaks=c()) + scale_x_continuous(breaks=c()) +  theme(panel.border= element_blank())

我有一个工作簿,我想打开,没有要求更新链接,(确切的消息是:

"此工作簿包含指向其他数据源的链接.如果更新链接,Excel将尝试检索最新数据.如果您未更新链接,Excel将使用以前的信息.请注意,数据链接可用于访问未经您的许可共享机密信息,并可能执行其他有害行为.如果您不信任本工作簿的来源,请不要更新链接." )

我想要做的是通过单击Internet Explorer中的文件打开工作簿并更新链接,但不要求用户单击按钮进行更新.

我在Open Event中尝试了以下代码,但没有成功:

 Private Sub Workbook_Open()
     Application.DisplayAlerts = False
     Application.ScreenUpdating = False
 End Sub

我也在上面的Sub中尝试了以下几行代码:

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.FullName, Type:=xlExcelLinks
Application.ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.FullName, Type:=xlExcelLinks
Application.ActiveWorkbook.UpdateLink
Workbooks.Open ActiveWorkbook, UpdateLinks:=True
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks

MS Excel 2010的版本并保存为.xls文件,以便使用旧版本.

非常感谢您的帮助.提前感谢您的帮助.

尊敬,

罗伯特

提前感谢您的知识.我正在攻读微软技术考试,其中一个练习题是:

创建主键满足第一个普通表单.对或错？

我个人认为它是假的,因为第一个正常形式是摆脱重复的组.但是文中有一句话(数据库基础,微软出版社考试98-364),其中说明如下:

"第一个规范化形式(1NF)表示数据采用实体格式,这基本上意味着必须满足以下三个条件:•表格必须没有重复记录.一旦为表格定义了主键,就可以了已达到第一个标准化形式标准."

请帮助我理解这一点,请解释,就像我五岁.谢谢.

我有一个 MS Excel 工作簿，我想打开它，然后循环浏览选项卡并为原始工作簿中的每个选项卡创建和保存一个工作簿。所以我打开文件 A，有选项卡 1、2、3，然后创建并保存文件 B、C、D，每个文件都有一个唯一的选项卡。我有 VBA 的代码，它创建了一个工作表的单个副本，但是当我尝试在 Python 中执行此操作时，我最终得到了每个工作簿中的所有选项卡。以下是有效的 VBA：

 Sub ConvertTabsToFiles()
    Dim currPath As String
    currPath = Application.ActiveWorkbook.Path
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=currPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
 Next
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True
 End Sub

以下是不起作用的 Python 代码：

 xlApp = win32.com.client.Dispatch("Excel.Application")
 xlwb = xlApp.Workbooks.Open("C:\Inputfile.xlsx")

 for sheet in xlwb.Worksheets:
     sheet.Copy
     xlApp.ActiveWorkbook.SaveAs("C:\Users\user\AppData\Local\Temp\\"+ sheet.Name+".xlsx")

非常感谢您的帮助，我很难过。提前致谢。