[英]Need to hide some fields for one variable, SAS/SQL
我需要给一群人提供一份报告,总结每个人的信息,但是只透露每个报告要去的人的名字。 我所拥有的是:
爱丽丝4 15%8 20%
鲍勃8 30%6 15%
卡罗尔4 15%8 20%
戴夫4 15%8 20%
艾琳4 15%8 20%
我想要的是:
爱丽丝的总结
爱丽丝4 15%8 20%
人2 8 30%6 15%
人3 4 15%8 20%
人4 4 15%8 20%
人5 4 15%8 20%
鲍勃的摘要
人1 4 15%8 20%
鲍勃8 30%6 15%
人3 4 15%8 20%
人4 4 15%8 20%
人5 4 15%8 20%
等等。
我已经尝试了几件事,放弃了接一个人的电话,而我最近的尝试是:
proc sql;
create table Distinct_People
as select distinct(Name)
from have;
quit;
data People;
set Distinct_People end=no_more;
call symputx('Person'||left(_n_), Name);
if no_more then call symputx('NumPeople', _n_);
run;
quit;
%macro Loop;
%do j=1 %to &NumPeople;
%let Person=Person&j;
data want;
set have;
if Name="&&Person&j" then "&&Person&j";
else "Person";
run;
%end;
%mend Loop;
%Loop;
我知道我可能已经解决了上述问题,但确实需要弄清楚如何在proc sql或数据步骤中使用SAS / SQL做到这一点。
谢谢!
不知道您到底想在宏中做什么,并且不完全知道结果到底出了什么问题,我可以在您的代码中发现3个错误:
1。
data person;
在循环中,每次执行循环时,都会覆盖数据集人员。 在下一个循环中,您将再次访问覆盖的数据集。 因此,最后您只有一个数据集,并且因为每次都只剩下一个personx作为名称时就覆盖了它。 所以你必须写data person&j;
为每个人获取一个数据集。
2。
set person;
什么是数据集人? 您没有在示例中定义它。 据我了解您要做什么,您必须使用set have;
这里。
3。
您忘记了覆盖名称
if Name="&&Person&j" then
name ="&&Person&j";
else
name ="&Person";
或更简单的版本:
if Name ne "&&Person&j" then
name ="&Person";
4。
data _null_;
,但是您应该使用data _null_;
而不是data people;
,因为您仅使用此数据步骤来生成一些宏变量,而不再使用输出,因此无需在此处创建新的数据集。数据步骤之后的退出操作已废弃...
编辑:
我今天进行了测试,此代码绝对可以为我工作,如果您仍然遇到错误,我猜您有错字或您的环境有问题:
data have;
input name $ nr1 nr2 $ nr3 n4 $;
datalines;
Alice 4 15% 8 20%
Bob 8 30% 6 15%
Carol 4 15% 8 20%
Dave 4 15% 8 20%
Erin 4 15% 8 20%
;
run;
proc sql;
create table Distinct_People
as select distinct(Name)
from have;
quit;
data _null_;
set Distinct_People end=no_more;
call symputx('Person'||left(_n_), Name);
if no_more then call symputx('NumPeople', _n_);
run;
quit;
%macro Loop;
%do j=1 %to &NumPeople;
data want&j;
set have;
if Name ne "&&Person&j" then name = cat("Person",_n_);
run;
%end;
%do j=1 %to &NumPeople;
proc print data=want&j;
title1 " &&Person&j.'s Summary";
run;
%end;
%mend Loop;
%Loop;
结果:
我部分使用proc sql
的联合查询的解决方案,其中包含子查询以实现匿名人员的姓名和电话号码。
但是您会注意到,每个人都是手动输入每个选择查询中的。 您可能不愿意在数据集中说200个人,而不是示例中显示的5个人。 一种可能性是运行插入查询以镜像联合的选择查询:
proc sql;
create table AnonymousReport As
SELECT CASE WHEN t1.name = 'Alice' THEN t1.name ELSE CATS('Person',
(SELECT count(name) + 1 From have t2
WHERE t2.name <= t1.name AND t1.name ne t2.name)) END As RptName,
t1.Col1Number, t1.Col1Pct, t1.Col2Number, t1.Col2Pct, 'Alice' As ReportToWhom
FROM have t1
UNION ALL
SELECT CASE WHEN t1.name = 'Bob' THEN t1.name ELSE CATS('Person',
(SELECT count(name) + 1 From have t2
WHERE t2.name < t1.name AND t1.name ne t2.name)) END As RptName,
t1.Col1Number, t1.Col1Pct, t1.Col2Number, t1.Col2Pct, 'Bob' As ReportToWhom
FROM have t1
UNION ALL
SELECT CASE WHEN t1.name = 'Carol' THEN t1.name ELSE CATS('Person',
(SELECT count(name) + 1 From have t2
WHERE t2.name < t1.name AND t1.name ne t2.name)) END As RptName,
t1.Col1Number, t1.Col1Pct, t1.Col2Number, t1.Col2Pct, 'Carol' As ReportToWhom
FROM have t1
UNION ALL
SELECT CASE WHEN t1.name = 'Dave' THEN t1.name ELSE CATS('Person',
(SELECT count(name) + 1 From have t2
WHERE t2.name < t1.name AND t1.name ne t2.name)) END As RptName,
t1.Col1Number, t1.Col1Pct, t1.Col2Number, t1.Col2Pct, 'Dave' As ReportToWhom
FROM have t1
UNION ALL
SELECT CASE WHEN t1.name = 'Erin' THEN t1.name ELSE CATS('Person',
(SELECT count(name) + 1 From have t2
WHERE t2.name < t1.name AND t1.name ne t2.name)) END As RptName,
t1.Col1Number, t1.Col1Pct, t1.Col2Number, t1.Col2Pct, 'Erin' As ReportToWhom
FROM have t1;
quit;
输出数据集。 从这里在最后一列ReportToWhom导出每个人的个人报告
RptName Col1Number Col1Pct Col2Number Col2Pct ReportToWhom
Alice 4 15% 8 20% Alice
Person2 8 30% 6 15% Alice
Person3 4 15% 8 20% Alice
Person4 4 15% 8 20% Alice
Person5 4 15% 8 20% Alice
Person1 4 15% 8 20% Bob
Bob 8 30% 6 15% Bob
Person3 4 15% 8 20% Bob
Person4 4 15% 8 20% Bob
Person5 4 15% 8 20% Bob
...
一种可能的解决方案是在数据集的所有行上使用串联的插入SQL查询:
data concat;
set have;
length reptAll $3200;
by name;
retain reptAll;
if first.name then reptAll = "";
unionSQL = "INSERT INTO AnonymousReport (RptName, Col1Number, Col1Pct, Col2Number, Col2Pct, ReportToWhom)
SELECT CASE WHEN t1.name = '" || name || "' THEN t1.name
ELSE CATS('Person', (SELECT count(name) + 1 From have t2
WHERE t2.name <= t1.name AND t1.name ne t2.name)) END As RptName,
t1.Col1Number, t1.Col1Pct, t1.Col2Number, t1.Col2Pct, '" || name || "' As ReportToWhom
FROM have t1";
reptAll = catx('; ', reptAll, unionSQL) ;
call symput('query', reptAll);
if last.name then output;
run;
然后将字符串传递到proc sql
宏:
%macro runsql;
proc sql;
&query;
quit;
%mend runsql;
%runsql;
在R中,我可以通过paste
/ for
循环/ apply
函数在几秒钟内完成此操作,但是SAS语法是另一个世界!
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.